+ # insert in the middle of the list.
+ $tl->add_tapelabel("20071109010204", "TESTCONF009", "nine", 1);
+
+ is_deeply($tl->lookup_tapepos(4),
+ { 'datestamp' => '20071109010204', 'label' => 'TESTCONF009',
+ 'reuse' => '1', 'position' => 4, 'blocksize' => undef,
+ 'barcode' => undef, 'meta' => undef, 'comment' => 'nine' },
+ ".. tape positions are adjusted correctly");
+
+ is_deeply($tl->lookup_tapelabel('TESTCONF009'),
+ { 'datestamp' => '20071109010204', 'label' => 'TESTCONF009',
+ 'reuse' => '1', 'position' => 4, 'blocksize' => undef,
+ 'barcode' => undef, 'meta' => undef, 'comment' => 'nine' },
+ ".. tape positions are adjusted correctly");
+