File: 999_fail.t

package info (click to toggle)
libspreadsheet-read-perl 0.93-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,180 kB
  • sloc: perl: 7,309; xml: 751; lisp: 293; makefile: 8
file content (17 lines) | stat: -rw-r--r-- 354 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl

use strict;
use warnings;

BEGIN { $ENV{SPREADSHEET_READ_XLSX} = "Test::More"; }

my     $tests = 2;
use     Test::More;
require Test::NoWarnings;

use     Spreadsheet::Read;

is (Spreadsheet::Read::parses ("xlsx"), 0, "Invalid module name for xlsx");
like ($@, qr/^Test::More is not supported/, "Error reason");

done_testing ($tests);