blob: 0505cd7bb5f9c0a58e52e2ee5364f4839e6acb77 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# perl-test
# $Id$
use strict;
use Test;
BEGIN { plan tests => 2 };
use File::MMagic;
my $dir = -d 't' ? 't/' : '';
my $m1 = File::MMagic->new($dir . 'test-magic');
my $ret = $m1->checktype_filename($dir . 'test.html');
ok($ret eq 'text/html');
my $m2 = File::MMagic->new();
$ret = $m2->checktype_filename($dir . 'test.html');
ok($ret eq 'text/html');
|
