Change 27057: It would be nice to have tests in B for the functions getting changed.

[Steve Peters]

Change 27057 by [EMAIL PROTECTED] on 2006/02/02 20:57:01

        It would be nice to have tests in B for the functions getting changed.

Affected files ...

... //depot/perl/ext/B/t/b.t#7 edit

Differences ...

==== //depot/perl/ext/B/t/b.t#7 (xtext) ====
Index: perl/ext/B/t/b.t
--- perl/ext/B/t/b.t#6~26206~   2005-11-25 17:31:24.000000000 -0800
+++ perl/ext/B/t/b.t    2006-02-02 12:57:01.000000000 -0800
@@ -22,7 +22,7 @@
 $|  = 1;
 use warnings;
 use strict;
-use Test::More tests => 53;
+use Test::More tests => 55;
 
 BEGIN { use_ok( 'B' ); }
 
@@ -74,6 +74,8 @@
        '$. has no more magic' );
 }
 
+ok(B::svref_2object(qr/foo/)->MAGIC->precomp() eq 'foo', 'Get string from 
qr//');
+like(B::svref_2object(qr/foo/)->MAGIC->REGEX(), qr/\d+/, "REGEX() returns 
numeric value");
 my $iv = 1;
 my $iv_ref = B::svref_2object(\$iv);
 is(ref $iv_ref, "B::IV", "Test B:IV return from svref_2object");
End of Patch.