1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
#!/usr/bin/perl
# Copyright (c) Nate Wiger http://nateware.com.
# All Rights Reserved. If you're reading this, you're bored.
# 1d-messages.t - messages and localization
use strict;
our $TESTING = 1;
our $DEBUG = $ENV{DEBUG} || 0;
our $LOGNAME = $ENV{LOGNAME} || '';
our $VERSION;
BEGIN { $VERSION = '3.08'; }
use Test;
use FindBin;
use File::Find;
# use a BEGIN block so we print our plan before CGI::FormBuilder is loaded
my @pm;
my %messages;
BEGIN {
die $! unless -d "$FindBin::Bin/../lib";
unshift @INC, "$FindBin::Bin/../lib";
%messages = (
form_invalid_text => 'You fucked up',
js_invalid_text => 'Yep, shit sucks!',
form_select_default => '*<- choose ->*',
taco_salad => 'is delicious',
parade => [1,2,3],
form_invalid_text => '<font color="red"><b>%s</b></font>',
form_invalid_input => 'Invalid entry',
form_invalid_select => 'Select an option from this list',
form_invalid_checkbox => 'Check one or more options',
form_invalid_radio => 'Choose an option',
form_invalid_password => 'Invalid entry',
form_invalid_textarea => 'Please fill this in',
form_invalid_file => 'Invalid filename',
form_invalid_default => 'Invalid entry',
);
# try to load all the messages .pm files
find(sub{
push @pm, $File::Find::name if -f $_ && $File::Find::name =~ m#Messages/[a-z]+_[A-Z]+\.pm$#;
}, "$FindBin::Bin/../lib");
die "Found 0 Messages.pm files in $FindBin::Bin/../lib, this is wrong" if @pm == 0;
# die "pm = @pm";
#
# There are 34 keys, times the number of modules, plus one load of the module.
# Then, also add in our custom tests as well, which is two passes over
# the %messages hash (above) plus 4 charset/dtd checks
#
require CGI::FormBuilder::Messages::default;
my %hash = CGI::FormBuilder::Messages::default->messages;
my $numkeys = keys %hash;
my $numtests = ($numkeys * @pm) + @pm + (keys(%messages) * 2) + 4;
plan tests => $numtests;
# success if we said NOTEST
if ($ENV{NOTEST}) {
ok(1) for 1..$numtests;
exit;
}
}
# Messages, both inline and file
my $locale = "fb_FAKE";
my $messages = "messages.$locale";
open(M, ">$messages") || warn "Can't write $messages: $!";
while (my($k,$v) = each %messages) {
print M join(' ', $k, ref($v) ? @$v : $v), "\n";
}
close(M);
# Fake a submission request
$ENV{REQUEST_METHOD} = 'GET';
$ENV{QUERY_STRING} = 'ticket=111&user=pete&replacement=TRUE&action=Unsubscribe&name=Pete+Peteson&email=pete%40peteson.com&extra=junk&_submitted=1&blank=&two=&two=';
use CGI::FormBuilder 3.08;
# Now manually try a whole bunch of things
my $hash = CGI::FormBuilder->new(
debug => $DEBUG,
fields => [qw/user name email/],
messages => \%messages
);
for my $k (sort keys %messages) {
#local $" = ', ';
ok($hash->messages->$k, ref($messages{$k}) ? "@{$messages{$k}}" : $messages{$k});
}
my $file = CGI::FormBuilder->new(
debug => $DEBUG,
fields => [qw/user name email/],
messages => $messages,
);
for my $k (sort keys %messages) {
#local $" = ', ';
ok($file->messages->$k, ref($messages{$k}) ? "@{$messages{$k}}" : $messages{$k});
}
unlink $messages;
# Check to ensure our lang and charset work correctly
{ local $TESTING = 0;
ok($file->charset, 'iso-8859-1');
ok($file->lang, 'en_US');
ok($file->dtd, <<EOD);
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en_US" xml:lang="en_US">
EOD
ok($file->charset('yo.momma'), 'yo.momma');
}
# Final test set is to just make sure we have all the keys for all modules
require CGI::FormBuilder::Messages::default;
my %need = CGI::FormBuilder::Messages::default->messages;
my @keys = keys %need;
for my $pm (@pm) {
my($lang) = $pm =~ /([a-z]+_[A-Z]+)/;
my $skip = $lang ? undef : "skip: Can't get language from $pm";
my $form;
eval { $form = CGI::FormBuilder->new(messages => ":$lang"); };
skip($skip, !$@);
for (@keys) {
skip($skip, $form->{messages}->$_) || warn "Locale $lang: missing $_\n";
}
}
|
