The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
MBARBON / Language-P-0.01_03 / t / parser / expressions / 010_filtetest.t 
#!/usr/bin/perl -w

use strict;
use warnings;
use Test::More tests => 2;

use lib 't/lib';
use TestParser qw(:all);

parse_and_diff_yaml( <<'EOP', <<'EOE' );
-f $foo
EOP
--- !parsetree:Builtin
arguments:
  - !parsetree:Symbol
    context: CXT_SCALAR
    name: foo
    sigil: VALUE_SCALAR
context: CXT_VOID
function: OP_FT_ISFILE
EOE

parse_and_diff_yaml( <<'EOP', <<'EOE' );
-f FOO
EOP
--- !parsetree:Builtin
arguments:
  - !parsetree:Symbol
    context: CXT_SCALAR
    name: FOO
    sigil: VALUE_GLOB
context: CXT_VOID
function: OP_FT_ISFILE
EOE