From 815a350b74918bc72c60d799d3a856952bd1683d Mon Sep 17 00:00:00 2001 From: Andreas Guldstrand Date: Thu, 19 Nov 2015 15:59:08 +0100 Subject: Fixed .info file parsing This fixes #5 Also added tests for #5 --- t/test.t | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 't/test.t') diff --git a/t/test.t b/t/test.t index 8b5eeb4..f2031e7 100755 --- a/t/test.t +++ b/t/test.t @@ -159,6 +159,15 @@ my $downloads = get_sbo_downloads(LOCATION => "$sbo_home/system/ifuse"); $link = 'http://www.libimobiledevice.org/downloads/ifuse-1.1.1.tar.bz2'; is($$downloads{$link}, '8d528a79de024b91f12f8ac67965c37c', 'get_sbo_downloads test 03 good.'); +$downloads = get_sbo_downloads(LOCATION => "$sbo_home/multimedia/mpv"); +my @links = qw' + https://github.com/mpv-player/mpv/archive/v0.10.0.tar.gz + http://www.freehackers.org/~tnagy/release/waf-1.8.12 +'; +is ($$downloads{$links[0]}, 'e81a975e4fa17f500dc2e7ea3d3ecf25', + 'get_sbo_downloads test 04 good.'); +is ($$downloads{$links[1]}, 'cef4ee82206b1843db082d0b0506bf71', + 'get_sbo_downloads test 05 good.'); # get_filename_from_link test is(get_filename_from_link( -- cgit v1.2.3