cpan/dist/File-MMagic/t/07-contents.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14

# perl-test
# $Id$

use strict;
use Test;

BEGIN { plan tests => 1 };

use File::MMagic;

my $ans = "text/plain";
my $magic = File::MMagic->new();
my $ret = $magic->checktype_contents('text conthook');
ok($ret eq $ans);