From 418e9b83f9f6843d0c5bcebc90861470459fcdf2 Mon Sep 17 00:00:00 2001
From: taiyoh tanaka <sun.basix@gmail.com>
Date: Sun, 19 Jul 2009 11:46:11 +0900
Subject: [PATCH] debug option

---
 t/cmd.t          | 2 +-
 t/cmd_classify.t | 8 ++++----
 t/file.t         | 6 +++---
 t/module.t       | 8 ++++----
 t/result.t       | 3 ---
 5 files changed, 12 insertions(+), 15 deletions(-)

diff --git a/t/cmd.t b/t/cmd.t
index 11f0a8e..322e686 100644
--- 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
index 70a4568..5fd8f09 100644
--- 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
index 69262c3..3b96771 100644
--- 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
index 97cebfb..3f89a55 100644
--- 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
index 03826c3..b11f04c 100644
--- 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",