2024-12-30 11:08:48 +00:00
|
|
|
#!/usr/bin/env raku
|
|
|
|
|
use v6.d;
|
2024-12-30 13:43:26 +00:00
|
|
|
use IUtils;
|
2024-12-31 02:32:25 +00:00
|
|
|
use IUtils::Comments;
|
2024-12-30 13:32:52 +00:00
|
|
|
|
2024-12-31 02:32:25 +00:00
|
|
|
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>;
|
|
|
|
|
}
|
