use strict;
use File::Basename;
use lib dirname(__FILE__);

use TestYAML tests => 3;
my $testdir = -e 'test' ? 'test' : 't';

my $test_file = "$testdir/svk-config.yaml";
my $node = LoadFile($test_file);

is ref($node), 'HASH',
    "loaded svk file is a hash";

open IN, $test_file or die "Can't open $test_file for input: $!";
my $yaml_from_file = do {local $/; <IN>};

like $yaml_from_file, qr{^---\ncheckout: !perl/Data::Hierarchy\n},
    "at least first two lines of file are right";

my $yaml_from_node = Dump($node);

is Dump(Load($yaml_from_node)), Dump(Load($yaml_from_file)),
    "svk data roundtrips!";;