X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Ffields.t;h=ae50df9ba67fdd4bb06c768fc7ca940db24655fb;hb=2bc5db750f6eaca35ef355abbc8d4c5aba0531fa;hp=a3f591acc44265dd36a87d96d4ae99dc0c91ce1d;hpb=8aeacb11de2851ebce0d1a967d2ea042973b3d01;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/fields.t b/t/lib/fields.t
index a3f591a..ae50df9 100755
--- a/t/lib/fields.t
+++ b/t/lib/fields.t
@@ -90,7 +90,7 @@ my %expect = (
     'Foo::Bar::Baz' => 'b1:1,b2:2,b3:3,foo:4,bar:5,baz:6',
 );
 
-print "1..", int(keys %expect)+13, "\n";
+print "1..", int(keys %expect)+14, "\n";
 my $testno = 0;
 while (my($class, $exp) = each %expect) {
    no strict 'refs';
@@ -170,3 +170,16 @@ print "ok ", ++$testno, "\n";
     print $a->{foo}[1], "\n";
     print $a->{bar}->{A}, "\n";
 }
+
+
+# Test $VERSION bug
+package No::Version;
+
+use vars qw($Foo);
+sub VERSION { 42 }
+
+package Test::Version;
+
+use base qw(No::Version);
+print "not " unless $No::Version::VERSION =~ /set by base\.pm/;
+print "ok ", ++$testno ,"\n";