debug option

taiyoh · Jul 19, 2009 · 418e9b8 · 418e9b8
1 parent 2ca22c1
commit 418e9b8
Show file tree

Hide file tree

Showing 5 changed files with 12 additions and 15 deletions.
diff --git a/t/cmd.t b/t/cmd.t
@@ -43,7 +43,7 @@ do {
 };
 
 do {
-    my $cmd = Algorithm::Bayon::Cmd->new( number => 3, debug => 1 );
+    my $cmd = Algorithm::Bayon::Cmd->new( number => 3 );
     $cmd->run("$FindBin::Bin/test_data.tsv");
     ok($cmd->stdout);
     #diag $cmd->stdout;

diff --git a/t/cmd_classify.t b/t/cmd_classify.t
@@ -19,7 +19,7 @@ do {
     my $args_str = "file => '/tmp/classify_cmd.tsv', inv_keys => 5, inv_size => 150";
     diag $args_str;
     my %a    = eval "($args_str)";
-    my $cmd  = Algorithm::Bayon::CmdClassify->new(%a, debug => 1 );
+    my $cmd  = Algorithm::Bayon::CmdClassify->new(%a);
     my $args = join ' ', $cmd->build_command;
     is( $args, q{--classify=/tmp/classify_cmd.tsv --inv-keys=5 --inv-size=150 --classify-size=20});
 };
@@ -29,12 +29,12 @@ do {
     diag $args_str;
     my %a = eval "($args_str)";
 
-    my $_cmd = Algorithm::Bayon::Cmd->new( number => 3, debug => 1, clvector => $a{file} );
+    my $_cmd = Algorithm::Bayon::Cmd->new( number => 3, clvector => $a{file} );
     $_cmd->run("$FindBin::Bin/test_data.tsv");
-    my $file = Algorithm::Bayon::File->new( debug => 1 );
+    my $file = Algorithm::Bayon::File->new;
     my $filename = $file->to_file(sub { print $_ $_cmd->stdout });
 
-    my $cmd = Algorithm::Bayon::CmdClassify->new( %a, debug => 1 );
+    my $cmd = Algorithm::Bayon::CmdClassify->new( %a );
     $cmd->run("$FindBin::Bin/test_data.tsv");
     ok($cmd->stdout);
     unlink '/tmp/classify_cmd.tsv';

diff --git a/t/file.t b/t/file.t
@@ -9,13 +9,13 @@ BEGIN {
     use_ok "Algorithm::Bayon::File";
 }
 
-my $cmd = Algorithm::Bayon::Cmd->new( number => 3, debug => 1 );
+my $cmd = Algorithm::Bayon::Cmd->new( number => 3 );
 $cmd->run("$FindBin::Bin/test_data.tsv");
 
 my $dumped_tsv = $cmd->stdout;
 
 do {
-    my $file = Algorithm::Bayon::File->new( debug => 1 );
+    my $file = Algorithm::Bayon::File->new;
     my @labels = qw/foo bar baz/;
     my $data_list = [
         [qw/1 a 2 b 3 c/],
@@ -32,7 +32,7 @@ _TSV_
 };
 
 do {
-    my $file = Algorithm::Bayon::File->new( debug => 1 );
+    my $file = Algorithm::Bayon::File->new;
     my $data_list = [
         [qw/1 a 2 b 3 c/],
         [qw/4 d 5 e 6 f/],

diff --git a/t/module.t b/t/module.t
@@ -33,7 +33,7 @@ my $data3 = {
 };
 
 do {
-    my $bayon = Algorithm::Bayon->new( debug => 1 );
+    my $bayon = Algorithm::Bayon->new;
     $bayon->number(3);
 
     my $result = $bayon->cluster( data => $data, labels => \@label );
@@ -44,7 +44,7 @@ do {
 };
 
 do {
-    my $bayon = Algorithm::Bayon->new( debug => 1 );
+    my $bayon = Algorithm::Bayon->new;
     $bayon->number(3);
 
     my $result = $bayon->cluster( data => $data2, labels => \@label );
@@ -54,7 +54,7 @@ do {
 
 do {
 
-    my $bayon = Algorithm::Bayon->new( debug => 1 );
+    my $bayon = Algorithm::Bayon->new;
     $bayon->number(3);
 
     my $result = $bayon->cluster( data => $data3 );
@@ -69,7 +69,7 @@ do {
 
 do {
 # TODO: やっぱりインターフェイスがあまりよくない気が…
-    my $bayon = Algorithm::Bayon->new( debug => 1 );
+    my $bayon = Algorithm::Bayon->new;
     $bayon->number(3);
     $bayon->clvector('/tmp/classify.tsv');
 

diff --git a/t/result.t b/t/result.t
@@ -17,7 +17,6 @@ my $dumped_tsv = $cmd->stdout;
 
 do {
     my $result = Algorithm::Bayon::Result->new(
-        debug => 1,
         point => 0,
         raw   => $dumped_tsv,
         input => "$FindBin::Bin/test_data.tsv"
@@ -34,7 +33,6 @@ do {
 
 do {
     my $result = Algorithm::Bayon::Result->new(
-        debug => 1,
         point => 0,
         raw   => $dumped_tsv,
         input => "$FindBin::Bin/test_data.tsv",
@@ -48,7 +46,6 @@ do {
 
 do {
     my $result = Algorithm::Bayon::Result->new(
-        debug => 1,
         point => 0,
         raw   => $dumped_tsv,
         input => "$FindBin::Bin/test_data.tsv",