Cond.t 385B

123456789101112131415161718
  1. #!/usr/bin/perl
  2. use Test::More;
  3. use lib 'lib';
  4. use helper;
  5. BEGIN { use_ok( 'SugarTrail::Template::Condition' ); }
  6. require_ok( 'SugarTrail::Template::Condition' );
  7. my $params = { os => "wxx", proto => "imap" };
  8. my $c = SugarTrail::Template::Condition->new('proto==imap');
  9. ok($c, "c is true");
  10. ok($c->match($params), "params match");
  11. &helper::dmupp(condition=>$c);
  12. done_testing();