--- a/t/lib/lmTest.pm	Tue Apr 11 04:09:58 2017 -0400
+++ b/t/lib/lmTest.pm	Mon Aug 20 09:17:05 2018 -0400
@@ -10,11 +10,12 @@
 
 our $VERSION = "1.0";
 our @ISA = qw(Exporter);
-our @EXPORT = qw( build_lm_mass_queryTest round_numsTest );
-our %EXPORT_TAGS = ( ALL => [qw( build_lm_mass_queryTest round_numsTest )] );
+our @EXPORT = qw( build_lm_mass_queryTest round_numsTest convert_tbody_to_globalmatrixTest);
+our %EXPORT_TAGS = ( ALL => [qw( build_lm_mass_queryTest round_numsTest convert_tbody_to_globalmatrixTest )] );
 
 use lib '/Users/fgiacomoni/Inra/labs/perl/galaxy_tools/lipidmaps' ;
 use lib::lipidmaps qw( :ALL ) ;
+use lib::writer qw( :ALL ) ;
 use lib::operations qw( :ALL ) ;
 
 sub build_lm_mass_queryTest {
@@ -51,4 +52,18 @@
 ## End SUB
 
 
+## SUB TEST for 
+sub convert_tbody_to_globalmatrixTest {
+    # get values
+    my (  $header, $tbody_object ) = @_;
+    
+    my $owriter = lib::writer->new() ;
+    my $lm_matrix = $owriter->convert_tbody_to_globalmatrix($header, $tbody_object) ;
+    
+#    print Dumper $lm_matrix;
+    return($lm_matrix) ;
+}
+## End SUB
+
+
 1 ;
\ No newline at end of file