matts 2003/09/07 10:10:47
Modified: t/response/TestAxKit 11xsp_attr_value_template.pm
Log:
Another attr value template test
Revision Changes Path
1.2 +66 -49
xml-axkit/t/response/TestAxKit/11xsp_attr_value_template.pm
Index: 11xsp_attr_value_template.pm
===================================================================
RCS file:
/home/cvs/xml-axkit/t/response/TestAxKit/11xsp_attr_value_template.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- 11xsp_attr_value_template.pm 28 Aug 2003 00:50:05 -0000 1.1
+++ 11xsp_attr_value_template.pm 7 Sep 2003 17:10:47 -0000 1.2
@@ -11,58 +11,75 @@
# Test for attribute value templates
sub handler{
- my $r = shift;
- plan $r, tests => 12;
+ my $r = shift;
+ plan $r, tests => 15;
- my $e = {};
-
- {
- # test no curlies is OK
- my $value = 'value';
- my $result =
AxKit::XSP::DefaultHandler::_attr_value_template($e, $value);
- ok($result);
- ok($result !~ /do/);
- print $result, "\n";
- eval $result;
- ok(!$@);
- }
-
- {
- # test 1 curly is OK
- my $value = 'value {{';
- my $result =
AxKit::XSP::DefaultHandler::_attr_value_template($e, $value);
- ok($result);
- ok($result !~ /do/);
- print $result, "\n";
- eval $result;
- ok(!$@);
- }
-
- {
- # test expr is OK
- my $value = 'value {time()}';
- my $result =
AxKit::XSP::DefaultHandler::_attr_value_template($e, $value);
- ok($result);
- ok($result =~ /do/);
- print $result, "\n";
- eval $result;
- ok(!$@);
- }
-
- {
- # test 2 expr is OK
- my $value = 'value {time()} text {time()}';
- my $result =
AxKit::XSP::DefaultHandler::_attr_value_template($e, $value);
- ok($result);
- ok($result =~ /do/);
- print $result, "\n";
- eval $result;
- ok(!$@);
- }
+ my $e = {};
+
+ {
+ # test no curlies is OK
+ my $value = 'value';
+ my $result = AxKit::XSP::DefaultHandler::_attr_value_template($e,
$value);
+ ok($result);
+ ok($result !~ /do/);
+ print $result, "\n";
+ eval $result;
+ ok(!$@);
+ }
+
+ {
+ # test 1 curly is OK
+ my $value = 'value {{';
+ my $result = AxKit::XSP::DefaultHandler::_attr_value_template($e,
$value);
+ ok($result);
+ ok($result !~ /do/);
+ print $result, "\n";
+ eval $result;
+ ok(!$@);
+ }
+
+ {
+ # test expr is OK
+ my $value = 'value {time()}';
+ my $result = AxKit::XSP::DefaultHandler::_attr_value_template($e,
$value);
+ ok($result);
+ ok($result =~ /do/);
+ print $result, "\n";
+ eval $result;
+ ok(!$@);
+ }
+
+ {
+ # test 2 expr is OK
+ my $value = 'value {time()} text {time()}';
+ my $result = AxKit::XSP::DefaultHandler::_attr_value_template($e,
$value);
+ ok($result);
+ ok($result =~ /do/);
+ print $result, "\n";
+ eval $result;
+ print $@;
+ ok(!$@);
+ }
+
+ {
+ my $value = '{$cgi->param("foo")}';
+ my $result = AxKit::XSP::DefaultHandler::_attr_value_template($e,
$value);
+ ok($result);
+ ok($result =~ /do/);
+ my $cgi = bless {}, 'CGI';
+ print $result, "\n";
+ eval $result;
+ print $@;
+ ok(!$@);
+ }
return MP2 ? Apache::OK : Apache::Constants::OK;
}
-
+
+package CGI;
+
+sub param { '' }
+
1;
-
+
