view release on metacpan or  search on metacpan

t/lib/cmd/subject/recipe.t  view on Meta::CPAN

    params => [ $fname ],
  );
  like $cmd->execute->string, qr/$fname/, 'save ok';
  $cmd = App::vaporcalc::Cmd::Subject::Recipe->new(
    recipe => $recipe,
    verb   => 'load',
    params => [ $fname ],
  );
  my $new = $cmd->execute->recipe;
  isa_ok $new, 'App::vaporcalc::Recipe';
  ok $new->target_pg == 65, 'loaded recipe looks ok';
};

done_testing

t/lib/reciperesultset.t  view on Meta::CPAN

use File::Temp ();
subtest 'storage' => sub {
  if ($^O eq 'MSWin32') {
    plan skip_all => 'Temp files fail on some Windows platforms'
  }
  my $fh    = File::Temp->new(UNLINK => 1);
  my $fname = $fh->filename;
  ok $rset->save($fname), 'save ok';
  my $loaded = App::vaporcalc::RecipeResultSet->load($fname);
  isa_ok $loaded, 'App::vaporcalc::RecipeResultSet';
  ok $loaded->recipe->target_nic_per_ml == 16, 'loaded recipe looks ok';
  ok $loaded->result->nic == 1.6, 'loaded result looks ok';
};


done_testing