From ec5da158151c83d01c297bf229f4d55d3da54032 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 6 May 2004 09:22:51 +0000 Subject: Add a way to downgrade some errors (file not found) to non-fatal --- t/fatal.t | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 t/fatal.t (limited to 't') diff --git a/t/fatal.t b/t/fatal.t new file mode 100644 index 0000000..5a98286 --- /dev/null +++ b/t/fatal.t @@ -0,0 +1,23 @@ +#!/usr/bin/perl + +use strict; +use Test::More tests => 8; +use URPM; + +my $u = new URPM; + +eval { $u->parse_hdlist('non-existent'); }; +like( $@, qr/^cannot open hdlist file non-existent/, 'fatal error on hdlist not found' ); +is( $! + 0, $!{EBADF}, '$! is EBADF' ); +eval { $u->parse_synthesis('non-existent'); }; +like( $@, qr/^unable to uncompress synthesis file non-existent/, 'fatal error on synthesis not found' ); +is( $! + 0, $!{ENOENT}, '$! is ENOENT' ); + +my $v = new URPM( nofatal => 1 ); + +eval { $v->parse_hdlist('non-existent'); }; +is( $@, '', 'no error on hdlist not found' ); +is( $! + 0, $!{EBADF}, '$! is EBADF' ); +eval { $v->parse_synthesis('non-existent'); }; +is( $@, '', 'no error on synthesis not found' ); +is( $! + 0, $!{ENOENT}, '$! is ENOENT' ); -- cgit v1.2.1