#!/usr/bin/env perl require 5.008; use warnings; use strict; require TestDriver; my $td = new TestDriver('sparse array'); $td->runtest("sparse_array", {$td->COMMAND => "sparse_array"}, {$td->STRING => "sparse array tests done\n", $td->EXIT_STATUS => 0}, $td->NORMALIZE_NEWLINES); $td->report(1);