B::walksymtable improperly documented?

[perl5.git] / t / lib / class-struct.t

diff --git a/t/lib/class-struct.t b/t/lib/class-struct.t
index c875fb0..26505ba 100644 (file)
--- a/t/lib/class-struct.t
+++ b/t/lib/class-struct.t
@@ -5,7 +5,7 @@ BEGIN {
        @INC = '../lib';
 }
 
-print "1..2\n";
+print "1..8\n";
 
 package aClass;
 
@@ -15,7 +15,8 @@ sub meth { 42 }
 
 package MyObj;
 
-use Class::Struct 'struct';
+use Class::Struct;
+use Class::Struct 'struct'; # test out both forms
 
 use Class::Struct SomeClass => { SomeElem => '$' };
 
@@ -63,7 +64,3 @@ $obk->SomeElem(123);
 print "not " unless $obk->SomeElem() == 123;
 print "ok 8\n";
 
-
-
-
-