001_basic.t

use strict;
use Test::More;
use_ok "Data::OpenGraph";

subtest 'basic' => sub {
    my $og = Data::OpenGraph->parse_string(<<EOM);
<meta property="og:title" content="foo bar baz">
EOM
    is $og->property("title"), "foo bar baz";
};

subtest 'nested' => sub {
    my $og = Data::OpenGraph->parse_string(<<EOM);
<meta property="og:audio:title" content="foo bar baz">
EOM
    is $og->property("audio:title"), "foo bar baz";
};

done_testing;