X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F500_test_moose%2F002_test_moose_does_ok.t;fp=t%2F500_test_moose%2F002_test_moose_does_ok.t;h=0000000000000000000000000000000000000000;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=feb4a2f894c5ebf645018989845941b5f73e861b;hpb=8845df4dd6432e3164d078ade741409061adae9f;p=gitmo%2FMouse.git diff --git a/t/500_test_moose/002_test_moose_does_ok.t b/t/500_test_moose/002_test_moose_does_ok.t deleted file mode 100644 index feb4a2f..0000000 --- a/t/500_test_moose/002_test_moose_does_ok.t +++ /dev/null @@ -1,65 +0,0 @@ -#!/usr/bin/perl -# This is automatically generated by author/import-moose-test.pl. -# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! -use t::lib::MooseCompat; - -use strict; -use warnings; - -use Test::Builder::Tester; -use Test::More; - -BEGIN { - use_ok('Test::Mouse'); -} - -{ - package Foo; - use Mouse::Role; -} - -{ - package Bar; - use Mouse; - - with qw/Foo/; -} - -{ - package Baz; - use Mouse; -} - -# class ok - -test_out('ok 1 - does_ok class'); - -does_ok('Bar','Foo','does_ok class'); - -# class fail - -test_out ('not ok 2 - does_ok class fail'); -test_fail (+2); - -does_ok('Baz','Foo','does_ok class fail'); - -# object ok - -my $bar = Bar->new; - -test_out ('ok 3 - does_ok object'); - -does_ok ($bar,'Foo','does_ok object'); - -# object fail - -my $baz = Baz->new; - -test_out ('not ok 4 - does_ok object fail'); -test_fail (+2); - -does_ok ($baz,'Foo','does_ok object fail'); - -test_test ('does_ok'); - -done_testing;