Commits

barbasa  committed 9c6f642

Removed qw to initialize list of numbers

  • Participants
  • Parent commits 0fee6fb

Comments (0)

Files changed (3)

File Statistics-Descriptive/t/descr_smooth_methods.t

 
 local $SIG{__WARN__} = sub { };
 
-my @original_data = qw/1 2 3 4 5 6 7 8 9 10/;
+my @original_data = (1 .. 10);
 
 {
     # testing set_smoother
            coeff    => 0.5,
     });
 
-    my @expected_values = qw/
-          1
-          1.5
-          2.25
-          3.125
-          4.0625
-          5.03125
-          6.015625
-          7.0078125
-          8.00390625
-          9.001953125
-    /; 
+    my @expected_values = (
+          1,
+          1.5,
+          2.25,
+          3.125,
+          4.0625,
+          5.03125,
+          6.015625,
+          7.0078125,
+          8.00390625,
+          9.001953125,
+    );
 
     my @smoothed_data = $stats->get_smoothed_data();
 

File Statistics-Descriptive/t/smoother_exponential.t

 
 use Statistics::Descriptive::Smoother;
 
-my @original_data       = qw/1 2 3 4 5 6 7 8 9 10/;
-my @original_samples    = qw/3 3 3 3 3 3 3 3 3 3/;
+my @original_data       = (1 .. 10);
+my @original_samples    = (3, 3, 3, 3, 3, 3, 3, 3, 3, 3,);
 
 {
 
     });
 
     my @smoothed_data = $smoother->get_smoothed_data();
-    my @expected_values = qw/
-          1
-          1.5
-          2.25
-          3.125
-          4.0625
-          5.03125
-          6.015625
-          7.0078125
-          8.00390625
-          9.001953125
-    /; 
+    my @expected_values = (
+          1,
+          1.5,
+          2.25,
+          3.125,
+          4.0625,
+          5.03125,
+          6.015625,
+          7.0078125,
+          8.00390625,
+          9.001953125,
+    );
 
     # TEST
     is_deeply( \@smoothed_data, \@expected_values, 'Smoothing with C=0.5');

File Statistics-Descriptive/t/smoother_weightedexponential.t

 
 local $SIG{__WARN__} = sub { };
 
-my @original_data    = qw/1 2 3 4 5 6 7 8 9 10/;
-my @original_samples = qw/100 50 100 50 100 50 100 50 100 50/;
+my @original_data    = (1 .. 10);
+my @original_samples = (100, 50, 100, 50, 100, 50, 100, 50, 100, 50,);
 
 {
 
     });
 
     my @smoothed_data = $smoother->get_smoothed_data();
-    my @expected_values = qw/
-                    1
-                    1.33333333333333
-                    2.24242424242424
-                    2.85944551901999
-                    4.0651836704636
-                    4.75526654493058
-                    6.03174342835728
-                    6.7367839208657
-                    8.02706266125788
-                    8.73457937329917
-    /; 
+    my @expected_values = (
+                    1,
+                    1.33333333333333,
+                    2.24242424242424,
+                    2.85944551901999,
+                    4.0651836704636,
+                    4.75526654493058,
+                    6.03174342835728,
+                    6.7367839208657,
+                    8.02706266125788,
+                    8.73457937329917,
+    );
 
     # TEST
     is_deeply( \@smoothed_data, \@expected_values, 'Smoothing with C=0.5');