better assertion support

Message-ID: <20050613154719.29295.qmail@lists.develooper.com>

p4raw-id: //depot/perl@24832

2 files changed, 43 insertions, 3 deletions

diff --git a/t/comp/assertions.t b/t/comp/assertions.t
index da9f5680ff..9edc13a1da 100644
--- a/t/comp/assertions.t
+++ b/t/comp/assertions.t
@@ -45,17 +45,17 @@ require assertions;
 while (@expr) {
     my $expr=shift @expr;
     my $expected=shift @expr;
-    my $result=eval {assertions::calc_expr($expr)};
+    my $result=eval {assertions::_calc_expr($expr)};
     if (defined $expected) {
 	unless (defined $result and $result == $expected) {
-	    print STDERR "assertions::calc_expr($expr) failed,".
+	    print STDERR "assertions::_calc_expr($expr) failed,".
 		" expected '$expected' but '$result' obtained (\$@=$@)\n";
 	    print "not ";
 	}
     }
     else {
 	if (defined $result) {
-	    print STDERR "assertions::calc_expr($expr) failed,".
+	    print STDERR "assertions::_calc_expr($expr) failed,".
 		" expected undef but '$result' obtained\n";
 	    print "not ";
 	}
diff --git a/t/comp/asstcompat.t b/t/comp/asstcompat.t
new file mode 100644
index 0000000000..fa0a357837
--- /dev/null
+++ b/t/comp/asstcompat.t
@@ -0,0 +1,40 @@
+#!./perl
+
+my $i = 1;
+sub ok {
+    my $ok = shift;
+    print( ($ok ? '' : 'not '), "ok $i", (@_ ? " - @_" : ''), "\n");
+    $i++;
+}
+
+print "1..7\n";
+
+# 1
+use base 'assertions::compat';
+ok(eval "sub assert_foo : assertion { 0 } ; 1", "handle assertion attribute");
+
+use assertions::activate 'Foo';
+
+# 2
+use assertions::compat asserting_2 => 'Foo';
+ok(asserting_2, 'on');
+
+# 3
+use assertions::compat asserting_3 => 'Bar';
+ok(!asserting_3, 'off');
+
+# 4
+use assertions::compat asserting_4 => '_ || Bar';
+ok(!asserting_4, 'current off or off');
+
+# 5
+use assertions::compat asserting_5 => '_ || Foo';
+ok(asserting_5, 'current off or on');
+
+# 6
+use assertions::compat asserting_6 => '_ || Bar';
+ok(asserting_6, 'current on or off');
+
+# 7
+use assertions::compat asserting_7 => '_ && Foo';
+ok(asserting_7, 'current on and on');