1#!/usr/bin/perl -T 2 3use 5.010001; 4use strict; 5use warnings; 6 7use Test::Exception; 8use Test::More tests => 2; 9 10use HTML::Tidy5; 11 12my $tidy = HTML::Tidy5->new; 13isa_ok( $tidy, 'HTML::Tidy5' ); 14 15my $expected_pattern = 'Usage: parse($filename,$str [, $str...])'; 16throws_ok { 17 $tidy->parse('fake-filename.txt'); 18} qr/\Q$expected_pattern\E/, 19'parse() dies when not given a string or array of strings to parse'; 20