Changeset 5262

Timestamp:

Oct 10, 2005, 2:09:13 PM (21 years ago)

Author:

jhoblitt

Message:

add recipient key
test for missing keys

File:

• trunk/PS-IPP-PSFTP/t/03_psftp.t (modified) (2 diffs)

trunk/PS-IPP-PSFTP/t/03_psftp.t

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 03_psftp.t,v 1.1 2005-10-10 22:46:33 jhoblitt Exp $
+# $Id: 03_psftp.t,v 1.2 2005-10-11 00:09:13 jhoblitt Exp $
 
 use strict;
@@ -10 +10 @@
 use lib qw( ./lib ./t );
 
-use Test::More qw( no_plan );
+use Test::More tests => 3;
 
 use PS::IPP::PSFTP;
 
 {
-    my $psftp = PS::IPP::PSFTP->new( base_url => 'http://example.com' );
+    my $psftp = PS::IPP::PSFTP->new(
+        base_url    => 'http://example.com',
+        recipient   => 'ipp',
+    );
     isa_ok($psftp, 'PS::IPP::PSFTP');
 }
+
+eval {
+    my $psftp = PS::IPP::PSFTP->new(
+        base_url    => 'http://example.com',
+    );
+};
+like($@, qr/Mandatory parameter 'recipient' missing/, "no recipient param");
+
+eval {
+    my $psftp = PS::IPP::PSFTP->new(
+        recipient   => 'ipp',
+    );
+};
+like($@, qr/Mandatory parameter 'base_url' missing/, "no recipient param");