view release on metacpan or  search on metacpan

t/X11-PngViewer.t  view on Meta::CPAN

# Before 'make install' is performed this script should be runnable with
# 'make test'. After 'make install' it should work as 'perl X11-PngViewer.t'

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use strict;
use warnings;
use Test::NeedsDisplay;
use MIME::Base64();

use Test::More tests => 57;
BEGIN { use_ok('X11::PngViewer') };

#########################

# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
#
my $sleep_time = 0;

my $viewer = X11::PngViewer->new();
ok($viewer, "Created X11::PngViewer object");

foreach ( 1 .. 5 ) {
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 16-bit/color RGB, non-interlaced (duckduckgo)");
iVBORw0KGgoAAAANSUhEUgAAAVcAAAEJEAIAAAD/Ry+LAAAkbHpUWHRSYXcgcHJvZmlsZSB0eXBlIGV4aWYAAHjarZxplhw3sqX/YxW9BMzDcgAYcE7voJff30VkUSRFsSS9pywykhEe7g6Y2R0M8HLn//3f6/4P/43Uvcul9Tpq9fyXRx5x8kv3n/8+r8Hn9/f7r7Sv38KP7zs/vn6NvCZe0+eDej6vYfJ++eMLLX+9v35837X9+SX2rx...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 8-bit/color RGBA, non-interlaced (camel book)");
iVBORw0KGgoAAAANSUhEUgAAANwAAAEgCAYAAADffR1XAAApg3pUWHRSYXcgcHJvZmlsZSB0eXBlIGV4aWYAAHjarZxpkhy3sqX/YxW9BIwOYDkYzd4Oevn9HWRRLEqk7N1rTYosKiszAoP7GRwe5c7//Z/r/g+/eo/mcqnNupnnV+65x8E/mv/8+nwNPr+/36+9vr4Xfn3dxR//jHxNfE2fb9j5ev/g9fLzAzV/vT5/fd3VrzvE9nWhr2...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 8-bit gray+alpha, non-interlaced (tux)");
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAQAAAD2e2DtAAAABGdBTUEAAYagMeiWXwAAAAJiS0dEAP+Hj8y/AAAACXBIWXMAAABIAAAASABGyWs+AAAAanRFWHRSYXcgcHJvZmlsZSB0eXBlIEFQUDEACkFQUDEKICAgICAgMzQKNDk0OTJhMDAwODAwMDAwMDAxMDAzMTAxMDIwMDA3MDAwMDAwMWEwMDAwMDAwMDAwMDAwMDQ3NmY2Zj...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 8-bit gray, non-interlaced (bsd daemon)");
iVBORw0KGgoAAAANSUhEUgAAALUAAAEACAAAAADQSGgHAAAABGdBTUEAAYagMeiWXwAAAAJiS0dEAP+Hj8y/AAAACXBIWXMAABuvAAAbrwFeGpEcAAAizUlEQVR42u2dCXiTVdbHT/K+2ZOmTZt0S/clbZou6Zq2adqmTbek+yIIuKDIIAI6oKC4jeKu4+i4jTrqqAi0ZVE2QR11HEfH9ZOZURFExVEE2VyQQpb73ftmaQJd0iZg53lyfR...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 4-bit gray, non-interlaced (postgresql elephant)");
iVBORw0KGgoAAAANSUhEUgAAAPgAAAEABAAAAAB+/AkWAAAABGdBTUEAAYagMeiWXwAAAAJiS0dEAA86Mj6jAAAACXBIWXMAAABIAAAASABGyWs+AAATjklEQVR42u1dfYxdR3V/u7bjjyTVu/ftt3fTN9chfDV41w4BgZrsYjnqB7BrSAyolDWNk6C0kh2FENFANxZVaQh0E6pUAVI2QQjzvbEIogkp643SoihyN6QtIcHJlkBJoNirxM...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 8-bit/color RGB, non-interlaced (openldap worm)");
iVBORw0KGgoAAAANSUhEUgAAARsAAAGQCAIAAAAROFNtAAAABGdBTUEAALGPC/xhBQAAAAFzUkdCAK7OHOkAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAZiS0dEAP8A/wD/oL2nkwAAAAlwSFlzAAAKhgAACoYB5rIENAAAgABJREFUeNrs/XecJVl234n9zr03Ip5P7yuzsrxv39M9Pd0z0+OAwR...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 16-bit grayscale, interlaced (mariadb-seal)");
iVBORw0KGgoAAAANSUhEUgAAAZAAAAEtEAAAAAEkF4VuAAAACXBIWXMAAC4jAAAuIwF4pT92AAAAB3RJTUUH4wIOCCIEaNc0XgAAIABJREFUeNrsXXVcVMsX/9IpLKiYIIKKgmBLmNiBLXa3PJ+NPOPngs/C1qcoNnaLgmIHStiEoIAoigKCNBLCsr8/7naxu+wuC9zv+zy5d/ZOnDlzZs6ZOKNCp0PuUJVHoiGtuN9VZEmJrQ77ObpIDp...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 16-bit/color RGBA, interlaced (metacpan)");
iVBORw0KGgoAAAANSUhEUgAAAUYAAABcEAYAAAE1evBsAAAACXBIWXMAAC4jAAAuIwF4pT92AAAAB3RJTUUH4wIOCQApi3hEPAAAIABJREFUeNrtXXdgHMXVn9ndU7NxwQbjfurG2IbYwio2xnenk+w7WQQwDhBCCQmdhEBophgbQv1ICAk9lIRuEohl6VSuuSFLsjBgAzbqboBxwU3Ckm5nvj8ek9WVvb2mZs/vn7tts7NT3rz35hVEKa...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 16-bit gray+alpha, non-interlaced (rsyslog)");
iVBORw0KGgoAAAANSUhEUgAAAMcAAABDEAQAAADSvQXAAAAajElEQVR42u1deXQUZRL/9RyZI8wkMSRMAigSAoIoBES8EFFARRPDLvpWUd56IS4ag67rqsuq63NFdw2I+FyP56IiHqghCFndhQU5FIEQghySECSMSUbDkcSQQCbpb/+o19szPV/PdM/0hKD53qs3R3d/9R1VX9VXVV+1AAgCwBh9RiqR7tNaTyw4jHg+1nu6Aw7peixz0o...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 8-bit colormap, non-interlaced (postfix mouse)");
iVBORw0KGgoAAAANSUhEUgAAAIIAAABbCAMAAACI7K0oAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAilBMVEX////5+/jy9PHg4t/Hycadn5y9v7zT1dLp6+iRk5BCREEPEQ4bHBlgYl9vcW6EhoOtr6ynqaY0NjN7fXooKicAAgCztbJSU1AqJxxlYkSZj2PSyo337a...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
	ok(ref $viewer->show(MIME::Base64::decode_base64(<<'_B64_OUT_')) eq 'X11::PngViewer', "Successfully displayed 4-bit colormap, non-interlaced (redhat)");
iVBORw0KGgoAAAANSUhEUgAAAXoAAAD6BAMAAABdSZHPAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAHlBMVEX///+qqqpVVVUAAAD/qqqqqlVVAACqAAD/AACqVVUZksLIAAAAAWJLR0QAiAUdSAAAAAlwSFlzAAAuIwAALiMBeKU/dgAAAAd0SU1FB+MCDwc2GOGYnx...
_B64_OUT_
	sleep $sleep_time if ($sleep_time);
}