Permalink
Browse files

[t/subcommands/install-with-force.t] improved a bit

Removed some unused projects, fixed expected output on a test.
  • Loading branch information...
1 parent 649a710 commit dea35bfd36d2fdd7b8bb7eed1802111d23d15922 @masak committed Jun 13, 2010
Showing with 1 addition and 6 deletions.
  1. +1 −6 t/subcommands/install-with-force.t
@@ -4,14 +4,9 @@ use Test;
use App::Pls;
my %projects =
- uninstalled => { :state<tested> },
- "won't-install" => { :state<tested> },
- untested => { :state<built> },
"won't-test" => { :state<built> },
- unbuilt => { :state<fetched> },
"won't-build" => { :state<fetched> },
"won't-test-2" => { :state<fetched> },
- unfetched => {},
"won't-fetch" => {},
"won't-build-2" => {},
"won't-test-3" => {},
@@ -58,7 +53,7 @@ given $core {
@actions = ();
is .install(<won't-test>, :force), forced-success, #'
"Testing fails, install anyway";
- is ~@actions, "install[won't-test]", "Tested, installed";
+ is ~@actions, "test[won't-test] install[won't-test]", "Tested, installed";
is .state-of("won't test"), installed, "State after: 'installed'";
# [T] Force install an unbuilt project; build fails. Fail.

0 comments on commit dea35bf

Please sign in to comment.