my $testNum = 1;
    for my $thisFile ( undef, 'triple.zip' ) {

      for my $thisListLength ( qw/0 1 3/ ) {

        my $testName = "Test-$testNum";
        $testNum++;

        diag "Test $testName with "
              . (defined($thisFile) ? $thisFile : 'no file')
              . " and list length $thisListLength";
        my $args = { name => $testName };
        $args->{'filename'} = $thisFile
          if (defined($thisFile) );

        my $doc = XYZ::SuperDocument->create($args);
        ok(defined($doc), "$testName object created");

        #  TODO: Add list stuff as well.

        _testObject($doc,$args);
      }
    }
[download]

Here's what I have so far .. the lists are hard-coded for now, but I will move them to a common location. This is the create loop, and later in another scope I have load, test and delete operations inside an identical loop.