source: LATMOS-Accounts/t/05_utils.t @ 517

use strict;
use warnings;
use Test::More tests => 5;
use File::Temp qw(mkstemp);

use_ok('LATMOS::Accounts::Utils');
use LATMOS::Accounts::Log;

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;
unlink($file);

# 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");