blob: 4343651e63cc070e2e75d3794bea25c4ed4c7217 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# perl-test
# $Id: 02-extmagic.t,v 1.2 2001/07/17 06:57:08 knok Exp $
use strict;
use Test;
BEGIN { plan tests => 1 };
use File::MMagic;
my $magic = File::MMagic::new();
$magic->addMagicEntry("0\tstring\t#\\ perl-test\tapplication/x-perl-test");
my $ret = $magic->checktype_filename('t/02-extmagic.t');
ok($ret eq 'application/x-perl-test');
|
