Commits

Anonymous committed b818896

Added assertions for the next token in the dumper.

  • Participants
  • Parent commits 949da7d

Comments (0)

Files changed (1)

File-Dir-Dumper/t/dumper.t

 use strict;
 use warnings;
 
-use Test::More tests => 17;
+use Test::More tests => 20;
 
 use POSIX qw(mktime strftime);
 use File::Path;
 
     # TEST
     is ($token->{depth}, 1, "Token depth is 1");
+    
+    $token = $scanner->fetch();
+
+    # TEST
+    is ($token->{type}, "dir", "Token is dir");
+
+    # TEST
+    is ($token->{filename}, "yet", "dir name is 'yet'");
+
+    # TEST
+    is ($token->{depth}, 2, "Token depth is 2");
 
     rmtree($t->get_path($test_dir))
 }