diff options
Diffstat (limited to 'cpan/CPAN-Meta/t/from-hash.t')
-rw-r--r-- | cpan/CPAN-Meta/t/from-hash.t | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/cpan/CPAN-Meta/t/from-hash.t b/cpan/CPAN-Meta/t/from-hash.t deleted file mode 100644 index a7f65590b7..0000000000 --- a/cpan/CPAN-Meta/t/from-hash.t +++ /dev/null @@ -1,48 +0,0 @@ -use strict; -use warnings; - -use CPAN::Meta::Requirements; - -use Test::More 0.88; - -sub dies_ok (&@) { - my ($code, $qr, $comment) = @_; - - my $lived = eval { $code->(); 1 }; - - if ($lived) { - fail("$comment: did not die"); - } else { - like($@, $qr, $comment); - } -} - -{ - my $string_hash = { - Left => 10, - Shared => '>= 2, <= 9, != 7', - Right => 18, - }; - - my $req = CPAN::Meta::Requirements->from_string_hash($string_hash); - - is_deeply( - $req->as_string_hash, - $string_hash, - "we can load from a string hash", - ); -} - -{ - my $string_hash = { - Left => 10, - Shared => '= 2', - Right => 18, - }; - - dies_ok { CPAN::Meta::Requirements->from_string_hash($string_hash) } - qr/Can't convert/, - "we die when we can't understand a version spec"; -} - -done_testing; |