From: Vincent Pit Date: Wed, 24 Feb 2010 10:39:52 +0000 (+0100) Subject: Revamp t/15-failures.t X-Git-Tag: v0.07~19 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=f555dbe5fe9b6a6a0a9aba59f9f99dcdf2693f09;p=perl%2Fmodules%2Frgit.git Revamp t/15-failures.t --- diff --git a/t/15-failures.t b/t/15-failures.t index 3217e23..d071188 100644 --- a/t/15-failures.t +++ b/t/15-failures.t @@ -12,108 +12,194 @@ use App::Rgit; local $SIG{__WARN__} = sub { die @_ }; -my $res = eval { App::Rgit->new() }; -is($@, '', 'App::Rgit->new(): no root: does not croak'); -is($res, undef, 'App::Rgit->new(): no root: returns undef'); - -$res = eval { App::Rgit->new(root => $0) }; -is($@, '', 'App::Rgit->new(): wrong root: does not croak'); -is($res, undef, 'App::Rgit->new(): wrong root: returns undef'); - -$res = eval { App::Rgit->new(root => 't') }; -is($@, '', 'App::Rgit->new(): no git: does not croak'); -is($res, undef, 'App::Rgit->new(): no git: returns undef'); - -$res = eval { App::Rgit->new(root => 't', git => $0) }; -is($@, '', 'App::Rgit->new(): wrong git: does not croak'); -is($res, undef, 'App::Rgit->new(): wrong git: returns undef'); - -$res = eval { App::Rgit->new(root => 't', git => 't/bin/git') }; -is($@, '', 'App::Rgit->new(): no cmd: does not croak'); -isa_ok($res, 'App::Rgit', 'App::Rgit->new(): no cmd: returns an object'); - -$res = eval { App::Rgit->new(root => 't', git => 't/bin/git', cmd => 'version'); }; -is($@, '', 'App::Rgit->new(): no args: does not croak'); -isa_ok($res, 'App::Rgit', 'App::Rgit->new(): no args: returns an object'); - -$res = eval { $res->new(root => 't', git => 't/bin/git', cmd => 'version'); }; -is($@, '', '$ar->new(): no args: does not croak'); -isa_ok($res, 'App::Rgit', '$ar->new(): no args: returns an object'); +my $res = eval { + App::Rgit->new() +}; +is $@, '', "App::Rgit->new(): no root: doesn't croak"; +is $res, undef, 'App::Rgit->new(): no root: returns undef'; + +$res = eval { + App::Rgit->new( + root => $0, + ); +}; +is $@, '', "App::Rgit->new(): wrong root: doesn't croak"; +is $res, undef, 'App::Rgit->new(): wrong root: returns undef'; + +$res = eval { + App::Rgit->new( + root => 't', + ); +}; +is $@, '', "App::Rgit->new(): no git: doesn't croak"; +is $res, undef, 'App::Rgit->new(): no git: returns undef'; + +$res = eval { + App::Rgit->new( + root => 't', + git => $0, + ); +}; +is $@, '', "App::Rgit->new(): wrong git: doesn't croak"; +is $res, undef, 'App::Rgit->new(): wrong git: returns undef'; + +$res = eval { + App::Rgit->new( + root => 't', + git => 't/bin/git', + ); +}; +is $@, '', "App::Rgit->new(): no cmd: doesn't croak"; +isa_ok $res, 'App::Rgit', 'App::Rgit->new(): no cmd: returns object'; + +$res = eval { + App::Rgit->new( + root => 't', + git => 't/bin/git', + cmd => 'version', + ); +}; +is $@, '', "App::Rgit->new(): no args: doesn't croak"; +isa_ok $res, 'App::Rgit', 'App::Rgit->new(): no args: returns object'; + +$res = eval { + $res->new( + root => 't', + git => 't/bin/git', + cmd => 'version', + ); +}; +is $@, '', '$ar->new(): no args: doesn\'t croak'; +isa_ok $res, 'App::Rgit', '$ar->new(): no args: returns object'; use App::Rgit::Command; -eval { App::Rgit::Command::Once->App::Rgit::Command::new(cmd => 'dongs') }; -like($@, qr!Command\s+dongs\s+should\s+be\s+executed\s+as\s+a\s+App::Rgit::Command::Each!, 'App::Rgit::Command::Once->App::Rgit::Command::new(cmd => "dongs"): croaks'); +eval { + App::Rgit::Command::Once->App::Rgit::Command::new( + cmd => 'dongs', + ); +}; +like $@, qr!Command dongs should be executed as a App::Rgit::Command::Each!, + 'App::Rgit::Command::Once->App::Rgit::Command::new(cmd => "dongs"): croaks'; { no strict 'refs'; push @{'App::Rgit::Test::Foo::ISA'}, 'App::Rgit::Command::Once'; } -$res = eval { App::Rgit::Test::Foo->App::Rgit::Command::new(cmd => 'version') }; -is($@, '', 'App::Rgit::Test::Foo->App::Rgit::Command::new(cmd => "version"): does not croak'); -isa_ok($res, 'App::Rgit::Test::Foo', 'App::Rgit::Test::Foo->App::Rgit::Command::new(cmd => "version"): returns valid object'); - -$res = eval { App::Rgit::Command->action('version') }; -is($@, '', 'App::Rgit::Command->action("version"): does not croak'); -is($res, 'App::Rgit::Command::Once', 'App::Rgit::Command->action("version"): returns valid answer'); - -$res = eval { App::Rgit::Command->new(cmd => 'version')->action() }; -is($@, '', 'App::Rgit::Command->action(): does not croak'); -is($res, 'App::Rgit::Command::Once', 'App::Rgit::Command->action(): returns valid answer'); - -$res = eval { App::Rgit::Command->action() }; -is($@, '', 'App::Rgit::Command->action(): no cmd: does not croak'); -is($res, undef, 'App::Rgit::Command->action(); no cmd: returns undef'); - -$res = eval { App::Rgit::Command::action() }; -is($@, '', 'undef->App::Rgit::Command::action(): no cmd: does not croak'); -is($res, undef, 'undef->App::Rgit::Command::action(); no cmd: returns undef'); - -$res = bless { }, 'App::Rgit::Test::Monkey'; -$res = eval { $res->App::Rgit::Command::action() }; -is($@, '', 'App::Rgit::Test::Monkey->App::Rgit::Command::action(): no cmd: does not croak'); -is($res, undef, 'App::Rgit::Test::Monkey->App::Rgit::Command::action(); no cmd: returns undef'); - -$res = eval { App::Rgit::Command->action('beer' => 'App::Rgit::Test::Pub') }; -is($@, '', 'App::Rgit::Command->action("beer" => "App::Rgit::Test::Pub"): does not croak'); -is($res, 'App::Rgit::Test::Pub', 'App::Rgit::Command->action("beer" => "App::Rgit::Test::Pub"): returns valid answer'); - -$res = eval { App::Rgit::Command->action('beer') }; -is($@, '', 'App::Rgit::Command->action("beer"): does not croak'); -is($res, 'App::Rgit::Test::Pub', 'App::Rgit::Command->action("beer"): returns valid answer'); - -$res = eval { App::Rgit::Command->new(cmd => 'beer') }; -like($@, qr!Couldn't\s+load\s+App::Rgit::Test::Pub\s*:!, 'App::Rgit::Command->new(cmd => "pub"): croaks'); +$res = eval { + App::Rgit::Test::Foo->App::Rgit::Command::new( + cmd => 'version', + ); +}; +is $@, '', "App::Rgit::Test::Foo->App::Rgit::Command::new(cmd => 'version'): doesn't croak"; +isa_ok $res, 'App::Rgit::Test::Foo', "App::Rgit::Test::Foo->App::Rgit::Command::new(cmd => 'version'): returns object"; + +$res = eval { + App::Rgit::Command->action('version') +}; +is $@, '', + "App::Rgit::Command->action('version'): doesn't croak"; +is $res, 'App::Rgit::Command::Once', + "App::Rgit::Command->action('version'): returns class"; + +$res = eval { + App::Rgit::Command->new( + cmd => 'version', + )->action(); +}; +is $@, '', + "App::Rgit::Command->action(): doesn't croak"; +is $res, 'App::Rgit::Command::Once', + 'App::Rgit::Command->action(): returns class'; + +$res = eval { + App::Rgit::Command->action() +}; +is $@, '', "App::Rgit::Command->action(): no cmd: doesn't croak"; +is $res, undef, 'App::Rgit::Command->action(); no cmd: returns undef'; + +$res = eval { + App::Rgit::Command::action() +}; +is $@, '', "undef->App::Rgit::Command::action(): no cmd: doesn't croak"; +is $res, undef, 'undef->App::Rgit::Command::action(); no cmd: returns undef'; + +$res = eval { + my $obj = bless { }, 'App::Rgit::Test::Monkey'; + $obj->App::Rgit::Command::action() +}; +is $@, '', + "App::Rgit::Test::Monkey->App::Rgit::Command::action(): no cmd: doesn't croak"; +is $res, undef, + 'App::Rgit::Test::Monkey->App::Rgit::Command::action(); no cmd: returns undef'; + +$res = eval { + App::Rgit::Command->action( + beer => 'App::Rgit::Test::Pub' + ); +}; +is $@, '', + "App::Rgit::Command->action(beer => 'App::Rgit::Test::Pub'): doesn't croak"; +is $res, 'App::Rgit::Test::Pub', + "App::Rgit::Command->action(beer => 'App::Rgit::Test::Pub'): returns class"; + +$res = eval { + App::Rgit::Command->action('beer') +}; +is $@, '', + "App::Rgit::Command->action('beer'): doesn't croak"; +is $res, 'App::Rgit::Test::Pub', + "App::Rgit::Command->action('beer'): returns class"; + +$res = eval { + App::Rgit::Command->new( + cmd => 'beer', + ); +}; +like $@, qr!Couldn't load App::Rgit::Test::Pub:!, + 'App::Rgit::Command->new(cmd => "pub"): croaks'; use App::Rgit::Config; my $arc = App::Rgit::Config->new(root => 't', git => 't/bin/git'); $res = eval { $arc->repos }; -is($@, '', '$arc->repos: does not croak'); -is_deeply($res, [ ], '$arc->repos: found nothing'); +is $@, '', '$arc->repos: doesn\'t croak'; +is_deeply $res, [ ], '$arc->repos: found nothing'; $res = eval { $arc->repos }; -is($@, '', '$arc->repos: does not croak'); -is_deeply($res, [ ], '$arc->repos: cached ok'); +is $@, '', '$arc->repos: doesn\'t croak'; +is_deeply $res, [ ], '$arc->repos: cached ok'; use App::Rgit::Repository; my $cwd = cwd; -my $t = catdir($cwd, 't'); +my $t = catdir($cwd, 't'); chdir $t or die "chdir($t): $!"; -$res = eval { App::Rgit::Repository->new() }; -is($@, '', 'App::Rgit::Repository->new: no dir: does not croak'); -is($res, undef, 'App::Rgit::Repository->new: no dir: returns undef'); - -$res = eval { App::Rgit::Repository->new(fake => 1) }; -is($@, '', 'App::Rgit::Repository->new: no dir, fake: does not croak'); -isa_ok($res, 'App::Rgit::Repository', 'App::Rgit::Repository->new: no dir, fake: returns a valid object'); +$res = eval { + App::Rgit::Repository->new(); +}; +is $@, '', "App::Rgit::Repository->new: no dir: doesn't croak"; +is $res, undef, 'App::Rgit::Repository->new: no dir: returns undef'; + +$res = eval { + App::Rgit::Repository->new( + fake => 1, + ); +}; +is $@, '', + "App::Rgit::Repository->new: no dir, fake: doesn't croak"; +isa_ok $res, 'App::Rgit::Repository', + 'App::Rgit::Repository->new: no dir, fake: returns object'; chdir $cwd or die "chdir($cwd): $!"; -$res = eval { App::Rgit::Repository->new(dir => 't', fake => 1) }; -is($@, '', 'App::Rgit::Repository->new: relative dir, fake: does not croak'); -isa_ok($res, 'App::Rgit::Repository', 'App::Rgit::Repository->new: relative dir, fake: returns a valid object'); +$res = eval { + App::Rgit::Repository->new(dir => 't', fake => 1) +}; +is $@, '', + "App::Rgit::Repository->new: relative dir, fake: doesn't croak"; +isa_ok $res, 'App::Rgit::Repository', + 'App::Rgit::Repository->new: relative dir, fake: returns object';