+ # try some edits
+ $tl->add_tapelabel("20080112010204", "TESTCONF008", "eight", 0);
+ is(scalar @{$tl->{'tles'}}, 6, "add_tapelabel adds a new element to the tapelist no-reuse");
+
+ is_deeply($tl->lookup_tapelabel("TESTCONF008"),
+ { 'datestamp' => '20080112010204', 'label' => 'TESTCONF008',
+ 'reuse' => 0, 'position' => 1, 'comment' => 'eight' },
+ ".. lookup_tapelabel finds it no-reuse");
+
+ $tl->remove_tapelabel("TESTCONF008");
+ is(scalar @{$tl->{'tles'}}, 5, "remove_tapelabel removes an element from the tapelist, no-reuse");
+