experiment.t 307 Bytes
Newer Older
Kevin Tew's avatar
Kevin Tew committed
1
#!/usr/bin/perl
2
use SemiModern::Perl;
3
use TestBed::TestSuite::Experiment::Macros tests => 3;
Kevin Tew's avatar
Kevin Tew committed
4 5 6 7 8 9 10
use Test::More;
use Data::Dumper;

my $teststr = "hello there";
like(echo($teststr), qr/$teststr/, "Experiment echo test");
ok(list_brief(), "Experiment getlist brief");
ok(list_full(), "Experiment getlist full");