use strict;
use warnings;
use Games::SGF::Go::Rotator;

use lib 't/lib';
use Games::SGF::Go::Rotator::Test;

use Test::More tests => 2;

local $/ = undef;

my $sgf = Games::SGF::Go::Rotator->new();
$sgf->readFile("t/normal-game.sgf");
$sgf->rotate90();

open(my $rot90fh, 't/normal-game-90.sgf') || die("Can't open rot90 file");
is(normalize($sgf->writeText()), normalize(<$rot90fh>), "90 degree rotation works");

$sgf = Games::SGF::Go::Rotator->new();
$sgf->readFile("t/normal-game.sgf");
$sgf->rotate();

open(my $rot180fh, 't/normal-game-180.sgf') || die("Can't open rot180 file");
is(normalize($sgf->writeText()), normalize(<$rot180fh>), "180 degree rotation works");