1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#!/usr/bin/env perl
# Test of some ISO9660::IFS routines
# This is similar to example/iso1.pl
use strict;
use warnings;
use Config;
BEGIN {
chdir 't' if -d 't';
use lib '../lib';
eval "use blib"; # if we fail keep going - maybe we have installed Cdio
}
use Device::Cdio;
use Device::Cdio::Device;
use Device::Cdio::ISO9660;
use Device::Cdio::ISO9660::IFS;
use File::Spec;
use Test::More tests => 5;
note 'Test ISO9660::IFS routines';
# The test ISO 9660 image
my $ISO9660_IMAGE_PATH="../data";
my $iso_image_fname=File::Spec->catfile($ISO9660_IMAGE_PATH, "copying.iso");
my $iso = Device::Cdio::ISO9660::IFS->new(-source=>$iso_image_fname);
ok(defined($iso), "Open ISO 9660 image $iso_image_fname") ;
ok($iso->get_application_id() eq
"MKISOFS ISO 9660/HFS FILESYSTEM BUILDER & CDRECORD CD-R/DVD CREATOR (C) 1993 E.YOUNGDALE (C) 1997 J.PEARSON/J.SCHILLING",
"get_application_id()");
ok($iso->get_system_id() eq "LINUX", "get_system_id() eq 'LINUX'");
ok($iso->get_volume_id() eq "CDROM", "get_volume_id() eq 'CDROM'");
my $path = '/';
my @file_stats = $iso->readdir($path);
my @okay_stats = (
{ LSN=>23, 'filename'=>'.', is_dir=>1, sec_size=>1, size=>2048 },
{ LSN=>23, 'filename'=>'..', is_dir=>1, sec_size=>1, size=>2048},
{ LSN=>24, 'filename'=>'COPYING.;1', is_dir=>'', sec_size=>9, size=>18002}
);
is_deeply(\@file_stats, \@okay_stats, 'ISO 9660 file stats');
$iso->close();
|
