# vi:fdm=marker fdl=0 syntax=perl:
# $Id: 15_3x3_capture_count.t,v 1.4 2004/03/25 14:56:37 jettero Exp $

use strict;
use Test;
use Games::Go::SGF2misc;

my $sgf = new Games::Go::SGF2misc;
   $sgf->parse("sgf/3x3-cap.sgf");

plan tests => 5;

my $end_node = $sgf->nodelist->{1}[0];  ok( ref($end_node) eq "ARRAY" );

$end_node = $end_node->[$#{ $end_node }];
ok( $end_node eq "1.1-8" );

$end_node = $sgf->as_perl( $end_node ) or die $sgf->errstr;
ok( ref($end_node) eq "HASH" );

ok($end_node->{captures}{W} == 1);
ok($end_node->{captures}{B} == 2);