X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F15-failures.t;h=82f1409cc9ad19257ef53b1c3438671bb82b821f;hb=3f21240544fde9c3eb947dc0328ba97c4629cae1;hp=52700452c0fd517f9ad2961eecc0c35583fca5b9;hpb=2e22285568ea8e99ddd04a0a530cc39371f57ac7;p=perl%2Fmodules%2Frgit.git diff --git a/t/15-failures.t b/t/15-failures.t index 5270045..82f1409 100644 --- a/t/15-failures.t +++ b/t/15-failures.t @@ -20,27 +20,27 @@ $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/repos') }; +$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/repos', git => $0) }; +$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/repos', git => 't/bin/git') }; +$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/repos', git => 't/bin/git', cmd => 'version'); }; +$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/repos', git => 't/bin/git', cmd => 'version'); }; +$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'); -$res = eval { App::Rgit::new(undef, root => 't/repos', git => 't/bin/git', cmd => 'version'); }; +$res = eval { App::Rgit::new(undef, root => 't', git => 't/bin/git', cmd => 'version'); }; is($@, '', 'undef->App::Rgit::new(): no args: does not croak'); isa_ok($res, 'App::Rgit','undef->App::Rgit::new(): no args: returns an object'); @@ -85,4 +85,3 @@ is($res, 'App::Rgit::Test::Pub', 'App::Rgit::Command->action("beer" => "App::Rgi $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'); -