my ($x, $y) = $window->getPosition;

is($x, 10, "getPosition - x"); #Commented until further info available is($y, 20, "getPosition - y");

$window->setSize(640, 480);

($x, $y) = $window->getSize;

is($x, 640, "getSize - x"); #Commented until further info available is($y, 480, "getSize - y");

COPYRIGHT

 ############################################
 # Copyright 2013 Jake Bott, Georgiy Tugai. #
 #=>--------------------------------------<=#
 #  All Rights Reserved. Part of perl-sfml  #
 ############################################