Actually allow cancelling a Test edit in Sequence Mode

bin/Tk/FIJITestsViewer.pm

@@ -1052,9 +1052,12 @@ sub remove_test ($) {
 sub edit_test {
     my ($self, $i) = @_;
 
-    my $test = @{$self->{'tests'}->{'tests'}}[$i];
+    my $original_test = @{$self->{'tests'}->{'tests'}}[$i];
+    my $test = clone($original_test);
+
     my $db   = $self->{'mw'}->FIJIModalDialog(
         -title   => "Edit Test $i",
+        -buttons => [qw/OK Cancel/]
     );
     $db->geometry("576x300");
     my $tf = $db->FIJITestFrame(-test => $test, -settings => $self->{'settings'}, -scrolled=>1)->pack(-expand => 1, -fill => "both");