← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libcgi-formbuilder-perl/edgy

« back to all changes in this revision

Viewing changes to lib/CGI/FormBuilder/Test.pm

  • Committer: Bazaar Package Importer
  • Author(s): Jonas Smedegaard
  • Date: 2006-05-28 15:47:27 UTC
  • mfrom: (1.1.2 upstream) (2.1.1 etch)
  • Revision ID: james.westby@ubuntu.com-20060528154727-u26u5nqd0btamxpm
Tags: 3.03.01-1
* New upstream release.
  + optgroups bugfix for complex arrays.
  + removal of HTML::Entities support due to utf8 issues. Closes:
    bug#338369 (thanks to Todd Charron <tcharron@badkarma.mine.nu> for
    reporting, and to several others for working on workarounds).
  + new es_ES Messages module with better translations
  + a patch from Mark Hedges to enable plugin modules for mailresults()
* Update local cdbs snippet copyright-check.mk:
  + Broaden scan to also look for "(c)" by default.
  + Make egrep options configurable.
* Bump up standards-version to 3.7.2 (no changes needed).
* Update debian/copyright_hints (nothing remarkable).
* Bump up debian/watch to version 3 syntax, and use uversionmangle
  instead of multiple parantheses (both work using uscan locally, but
  the later hopefully works with qa.debian.org too).

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/CGI/FormBuilder/Test.pm
 
1
 
 
2
# Copyright (c) 2005 Nate Wiger <nate@wiger.org>. All Rights Reserved.
 
3
# Use "perldoc CGI::FormBuilder::Test" to read full documentation.
 
4
 
 
5
package CGI::FormBuilder::Test;
 
6
 
 
7
=head1 NAME
 
8
 
 
9
CGI::FormBuilder::Test - Test harness for FormBuilder
 
10
 
 
11
=head1 SYNOPSIS
 
12
 
 
13
    use CGI::FormBuilder::Test;
 
14
 
 
15
    my $test = 1;
 
16
    for (@tests) {
 
17
        my $outfile = outfile($test++);
 
18
 
 
19
    }
 
20
 
 
21
=cut
 
22
 
 
23
use strict;
 
24
 
 
25
our $VERSION = '3.03';
 
26
our $DEBUG = 0;
 
27
 
 
28
use Exporter;
 
29
use base 'Exporter';
 
30
our @EXPORT = qw(outfile);
 
31
 
 
32
use File::Basename;
 
33
use File::Spec::Functions;
 
34
 
 
35
sub outfile ($) {
 
36
    my($file, $dir) = fileparse($0);
 
37
    $file =~ s/-.*//;   # just save "1a-", "3d-", etc
 
38
    my $out = catfile($dir, sprintf("$file-test%2.2d.html", $_[0]));
 
39
    open(O, $out) || warn "Can't open $out: $!\n";
 
40
    return join '', <O>;
 
41
}
 
42
 
 
43
1;
 
44
 
 
45
=head1 DESCRIPTION
 
46
 
 
47
=head1 VERSION
 
48
 
 
49
$Id: Test.pm,v 1.14 2006/02/24 01:42:29 nwiger Exp $
 
50
 
 
51
=head1 AUTHOR
 
52
 
 
53
Copyright (c) 2005-2006 Nate Wiger <nate@wiger.org>. All Rights Reserved.
 
54
 
 
55
This module is free software; you may copy this under the terms of
 
56
the GNU General Public License, or the Artistic License, copies of
 
57
which should have accompanied your Perl kit.
 
58
 
 
59
=cut