15 lines
345 B
Raku
Executable file
15 lines
345 B
Raku
Executable file
#!/usr/bin/env raku
|
|
use v6.d;
|
|
use IUtils;
|
|
use IUtils::Comments;
|
|
|
|
my $contents = "/home/nathan/Projects/Idris/structures/test/src/Main.idr".IO.slurp;
|
|
|
|
say "\nTesting full flagged-expression:";
|
|
say $contents ~~ &flagged-expression;
|
|
when $contents ~~ &flagged-expression {
|
|
say $<test-name>;
|
|
say $<expression-name>;
|
|
say $<flag><type>;
|
|
}
|