Commits

Shlomi Fish committed 376a1cb

Convert everything to open1_callback.

Comments (0)

Files changed (1)

 use Counter;
 use Stacker;
 
-# Should be 40.
-use Test::More tests => 40;
+# Should be 38.
+use Test::More tests => 38;
 use XML::LibXML;
 
 my $using_globals = '';
 
 $using_globals = 1;
 $XML::LibXML::match_cb = \&match1;
-$XML::LibXML::open_cb  = \&open1;
+$XML::LibXML::open_cb  = $open1_counter->cb();
 $XML::LibXML::read_cb  = \&read1;
 $XML::LibXML::close_cb = \&close1;
 
     # TEST
     ok($parser->parse_string($str), 'parse_string returns a true value.');
 
+    # TEST
+    $open1_counter->test(3, 'open1 for global counter.');
     # warn $dom->toString() , "\n";
 }
 
     return 1;
 }
 
-sub open1 {
-    my $f = shift;
-    # warn("open: $f\n");
-
-    if (open my $file, '<', $f)
-    {
-        # TEST*3
-        is($using_globals, defined($XML::LibXML::open_cb), 'open1');
-        return $file;
-    }
-    else
-    {
-        return 0;
-    }
-}
-
 sub read1 {
     # warn "read!";
     my $rv = undef;