[v6.d REVIEW] Fix formatting of hash perl tests

Orig: f775ffeda
Raku · Sep 29, 2018 · 59ee88d · 59ee88d
1 parent 52e2d1b
commit 59ee88d
Showing 1 changed file with 10 additions and 6 deletions.
diff --git a/S32-hash/perl.t b/S32-hash/perl.t
@@ -68,14 +68,18 @@ plan 52;
         Hash[Any].new, Hash[Any].new(k => "v"),
         Hash[Int].new, Hash[Any].new(k => 1),
         Hash[Any,Any].new, Hash[Any,Any].new(k => "v"),
-	Hash[Int,Int].new, Hash[Int,Int].new(1 => 2),
-	:{ }, :{k => "v"} -> \h {
+	      Hash[Int,Int].new, Hash[Int,Int].new(1 => 2),
+	      :{ }, :{k => "v"}
+    -> \h {
         my $a = h;
         is-perl-idempotent $a, "{$a.perl}.perl is idempotent";
-	my $scalarperl = $a.perl;
-	$a := h;
-	nok $scalarperl eq $a.perl, "Hash in Scalar and deconted Hash perlify differently ({$a.keyof.perl},{$a.of.perl})";
-	is-perl-idempotent $a, "{$a.perl}.perl is idempotent";
+
+      	my $scalarperl = $a.perl;
+      	$a := h;
+      	isnt $scalarperl, $a.perl,
+          "Hash in Scalar and deconted Hash perlify differently ({$a.keyof.perl},{$a.of.perl})";
+
+        is-perl-idempotent $a, "{$a.perl}.perl is idempotent";
     }
 }