#!perl -w

use strict;
no strict "vars";

use Data::Locations;

# ======================================================================
#   $location->printf($format, @items);
#   printf $location $format, @items;
# ======================================================================

print "1..5\n";

$n = 1;

$loc = Data::Locations->new();

$loc->printf("%04X '%-6s' %08.3f\n", 40334, "nUlL", 3.14159265358979);

if (@{*{$loc}} == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if (${*{$loc}}[0] eq "9D8E 'nUlL  ' 0003.142\n")
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;

printf $loc "%08d '%6.6s' '%10.4f'\n", 0xA0D9, "NoNsEnSe", 2.71828182845905;

if (@{*{$loc}} == 2)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if (${*{$loc}}[0] eq "9D8E 'nUlL  ' 0003.142\n")
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if (${*{$loc}}[1] eq "00041177 'NoNsEn' '    2.7183'\n")
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;

__END__