Changeset 335

Timestamp:

08/13/09 17:47:52 (15 years ago)

Author:

nanardon

Message:

• add test over new features

File:

• LATMOS-Accounts/t/05_utils.t (modified) (2 diffs)

LATMOS-Accounts/t/05_utils.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 2;
+use Test::More tests => 5;
+use File::Temp qw(mkstemp);
 
 use_ok('LATMOS::Accounts::Utils');
@@ -7 +8 @@
 
 ok(la_log(LA_NOTICE, "a notice"), "can run la_log");
+
+my ($fh, $file) = mkstemp( "tmpfileXXXXX" );
+print $fh <<EOF;
+attr1: attr1
+attr: val1
+attr: val2
+EOF
+
+seek($fh, 0, 0);
+
+my %attributes = LATMOS::Accounts::Utils::parse_obj_file($fh);
+$fh = undef;
+
+# now testing
+is($attributes{'attr1'}, 'attr1', "can get attribute from file");
+ok(eq_set($attributes{'attr'}, [ qw(val1 val2) ]),
+        "can get multiple values attribute");
+
+$ENV{EDITOR} = 'sleep 1; /bin/touch';
+
+ok(LATMOS::Accounts::Utils::dump_read_temp_file(
+        sub { 1; }, sub { 1; }), "Can edit temp file");