#!/usr/bin/perl

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More;
unless ( $^O eq 'MSWin32' or $ENV{DISPLAY} ) {
	Test::More->import( skip_all => 'No display' );
} else {
	Test::More->import( tests => 2 );
}
use File::Spec::Functions ':ALL';
use Imager::Search::Screenshot;





#####################################################################
# Trivial Test Files

my $image1 = Imager::Search::Screenshot->new( driver => 'BMP24' );
isa_ok( $image1, 'Imager::Search::Screenshot' );

# Confirm the string is the expected size
my $str_ref  = $image1->string;
my $expected = $image1->width * $image1->height * 3;
ok( length($$str_ref) > $expected, '->string is the expected length' );