git.rot13.org Git - pxelator/blob - lib/PXElator/t/upstream.t

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use autodie;
   6
   7 use Test::More tests => 3;
   8 use Data::Dump qw/dump/;
   9
  10 use_ok 'upstream';
  11
  12 ok( config::test(), 'iso' );
  13 ok( system("sudo umount -t iso9660 -a") == 0, 'umount' );
  14
  15 package config;
  16 sub test { upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' ) };
  17
  18 1;