# vi:fdm=marker fdl=0 syntax=perl:
# $Id: 17_board_draw.t,v 1.5 2004/03/25 14:56:37 jettero Exp $
use strict;
use Test;
use Games::Go::SGF2misc;
my $sgf = new Games::Go::SGF2misc;
plan tests => 1;
$sgf->parse("sgf/redrose-tartrate.sgf");
my $the_node = $sgf->nodelist;
$the_node = $the_node->{1}[0];
$the_node = $the_node->[ $#{ $the_node } ];
$sgf->as_image($the_node, {imagesize=>400, filename=>"/dev/null", gobanColor=>[255, 255, 255]}) or die $sgf->errstr;
ok 1; # a rather weak test, but better than nothing.