use Test::More tests => 2;
my $result = `$^X t/basic.pl`;
is( $?, 0, "$^X t/basic.pl" );
like( $result, qr/^print \$SacramentoMountainsPricklyPoppy;$/m, "Floralized" );
use Test::More tests => 2;
my $result = `$^X t/basic.pl`;
is( $?, 0, "$^X t/basic.pl" );
like( $result, qr/^print \$SacramentoMountainsPricklyPoppy;$/m, "Floralized" );