bproto.t: Test pos(1,$b)

I nearly broke this.

diff --git a/t/comp/bproto.t b/t/comp/bproto.t
index bc0f1a2..cd66278 100644 (file)
--- a/t/comp/bproto.t
+++ b/t/comp/bproto.t
@@ -8,7 +8,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..14\n";
+print "1..15\n";
 
 my $i = 1;
 
@@ -35,6 +35,7 @@ sub test_no_error {
 
 test_too_many($_) for split /\n/,
 q[     defined(&foo, $bar);
+       pos(1,$b);
        undef(&foo, $bar);
        uc($bar,$bar);
 ];