Commits

shl...@52c325ad-5fd0-0310-8a0f-c43feede02cc  committed 949da7d

Added assertions for the next token.

  • Participants
  • Parent commits 2c21430

Comments (0)

Files changed (1)

File File-Dir-Dumper/t/dumper.t

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