[libsoftware-license-perl] 05/09: added tests for short-name fallback

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libsoftware-license-perl.

commit dfd446ef8a80f24be4c562df08c5e4c831501bc1
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Sep 20 11:30:59 2014 +0200

    added tests for short-name fallback
---
 debian/patches/short-name-fallback | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/debian/patches/short-name-fallback b/debian/patches/short-name-fallback
index 528be7c..600ae20 100644
--- a/debian/patches/short-name-fallback
+++ b/debian/patches/short-name-fallback
@@ -24,3 +24,25 @@
  
 -=cut
 +=CUT
+--- a/t/short_name.t
++++ b/t/short_name.t
+@@ -2,7 +2,7 @@
+ use strict;
+ use warnings;
+ 
+-use Test::More tests => 6;
++use Test::More tests => 7;
+ 
+ my $class = 'Software::LicenseUtils';
+ require_ok($class);
+@@ -17,3 +17,10 @@
+ isa_ok($license,'Software::License::GPL_1',"license class");
+ like($license->name, qr/version 1/i, "license name");
+ like($license->fulltext, qr/general public/i, 'license text');
++
++# test fall back
++my $mit_lic = $class->new_from_short_name({
++    short_name => 'MIT',
++    holder => 'X. Ample'
++});
++isa_ok($mit_lic,'Software::License::MIT',"license class");

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libsoftware-license-perl.git