test:More comprehensive creation testing. Using native matrices in classification testing.

Author: antononcube

t/01-creation.rakutest

@@ -9,43 +9,108 @@ sub is-smr-map($arg) {
 
 my $dsData = ML::SparseMatrixRecommender::Utilities::get-titanic-dataset();
 
+plan *;
+
+#==========================================================
 ## 1
+#==========================================================
 is $dsData ~~ (Array:D | List:D) && $dsData.all ~~ Map:D, True, 'expected data shape';
 
+#==========================================================
 ## 2
-ok
-        ML::SparseMatrixRecommender.new.create-from-wide-form($dsData, item-column-name => 'id', tag-types => Whatever, :!add-tag-types-to-column-name),
-        'ok creation from wide form';
-
-my $smr =
-        ML::SparseMatrixRecommender
-                .new
-                .create-from-wide-form(
-                    $dsData,
+#==========================================================
+subtest {
+    ## 1
+    ok
+            ML::SparseMatrixRecommender
+                    .new
+                    .create-from-wide-form(
+                        $dsData,
+                        item-column-name => 'id',
+                        tag-types => Whatever,
+                        :!add-tag-types-to-column-name,
+                        :!native),
+            'ok creation from wide form';
+
+    my $smr =
+            ML::SparseMatrixRecommender
+                    .new
+                    .create-from-wide-form(
+                        $dsData,
+                        item-column-name => 'id',
+                        tag-types => Whatever,
+                        :!add-tag-types-to-column-names
+            )
+            .apply-term-weight-functions(
+                    global-weight-func => "IDF",
+                    local-weight-func  => "None",
+                    normalizer-func    => "Cosine"
+                    );
+
+    ## 3
+    ok ML::SparseMatrixRecommender.new($smr.take-matrices);
+
+    ## 4
+    my $smr-new = ML::SparseMatrixRecommender.new($smr.take-matrices);
+
+    is
+            $smr-new.take-matrices ~~ Map:D && $smr-new.take-matrices.values.all ~~ Math::SparseMatrix:D,
+            True,
+            "smr-new has valid matricss";
+
+    ## 5
+    is $smr-new.take-M eqv $smr.take-M, True, "M matrices are equal";
+}, 'wide form, not native';
+
+#==========================================================
+## 3
+#==========================================================
+subtest {
+    ## 1
+    ok
+            ML::SparseMatrixRecommender
+                    .new
+                    .create-from-wide-form(
+            $dsData,
+                    item-column-name => 'id',
+                    tag-types => Whatever,
+                    :!add-tag-types-to-column-name,
+                    :native),
+            'ok creation from wide form';
+
+    my $smr =
+            ML::SparseMatrixRecommender
+                    .new
+                    .create-from-wide-form(
+            $dsData,
                     item-column-name => 'id',
                     tag-types => Whatever,
                     :!add-tag-types-to-column-names
-                )
-                .apply-term-weight-functions(
+            )
+            .apply-term-weight-functions(
                     global-weight-func => "IDF",
                     local-weight-func  => "None",
                     normalizer-func    => "Cosine"
-                );
+                    );
 
-## 3
-ok ML::SparseMatrixRecommender.new($smr.take-matrices);
+    ## 3
+    ok ML::SparseMatrixRecommender.new($smr.take-matrices);
 
-## 4
-my $smr-new = ML::SparseMatrixRecommender.new($smr.take-matrices);
+    ## 4
+    my $smr-new = ML::SparseMatrixRecommender.new($smr.take-matrices);
 
-is
-        $smr-new.take-matrices ~~ Map:D && $smr-new.take-matrices.values.all ~~ Math::SparseMatrix:D,
-        True,
-        "smr-new has valid matricss";
+    is
+            $smr-new.take-matrices ~~ Map:D && $smr-new.take-matrices.values.all ~~ Math::SparseMatrix:D,
+            True,
+            "smr-new has valid matricss";
 
-## 5
-is $smr-new.take-M eqv $smr.take-M, True, "M matrices are equal";
+    ## 5
+    is $smr-new.take-M eqv $smr.take-M, True, "M matrices are equal";
+}, 'wide form, native';
 
+#==========================================================
+## 4
+#==========================================================
 subtest {
     my @long =
             <passengerAge passengerClass passengerSex passengerSurvival>

t/03-classification.rakutest

@@ -7,6 +7,7 @@ use Math::SparseMatrix;
 #----------------------------------------------------------
 # Tested in 01-creation.rakutest
 #----------------------------------------------------------
+my $native = True;
 my $dsData = ML::SparseMatrixRecommender::Utilities::get-titanic-dataset();
 $dsData = $dsData.map({ $_<id> = "id.{$_<id>}"; $_});
 
@@ -17,7 +18,8 @@ my $smr =
                     $dsData,
                     item-column-name => 'id',
                     tag-types => Whatever,
-                    :!add-tag-types-to-column-names
+                    :!add-tag-types-to-column-names,
+                    :$native
                 )
                 .apply-term-weight-functions(
                     global-weight-func => "IDF",