From 50ff2a3572506d2aedd983ccc37096669ae622b6 Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Thu, 24 Mar 2022 12:36:10 +0800
Subject: follow the standard order of test script writing

---
 challenge-157/cheok-yin-fung/perl/ch-1.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-157/cheok-yin-fung/perl/ch-1.pl b/challenge-157/cheok-yin-fung/perl/ch-1.pl
index bdb01e53a6..c1879bb565 100644
--- a/challenge-157/cheok-yin-fung/perl/ch-1.pl
+++ b/challenge-157/cheok-yin-fung/perl/ch-1.pl
@@ -29,17 +29,17 @@ sub mean {
 
 use Test::More tests => 3;
 is_deeply(
-    [4.8, 3.8, 2.8],
     [sort {$b<=>$a} map {sprintf("%.1f", $_)} values mean(1,3,5,6,9)->%*],
+    [4.8, 3.8, 2.8],
     "Example 1"
 );
 is_deeply(
-    ["6.0", 5.2, 4.4],
     [sort {$b<=>$a} map {sprintf("%.1f", $_)} values mean(2,4,6,8,10)->%*],
+    ["6.0", 5.2, 4.4],
     "Example 2"
 );
 is_deeply(
-    ["3.0", 2.6, 2.2],
     [sort {$b<=>$a} map {sprintf("%.1f", $_)} values mean(1,2,3,4,5)->%*],
+    ["3.0", 2.6, 2.2],
     "Example 3"
 );
-- 
cgit