Changeset 6954 for lang/perl/Games-Go

Timestamp:

02/20/08 02:34:40 (5 years ago)

Author:

junichiro

Message:

lang/perl/Games-Go: Add hit test(t/01.hit.t)

Location:

lang/perl/Games-Go/trunk

Files:

• bin/demo_play.pl (modified) (2 diffs)
• bin/start_go.pl (modified) (4 diffs)
• lib/Games/Go/Play.pm (modified) (2 diffs)
• t/01.hit.t (added)

lang/perl/Games-Go/trunk/bin/demo_play.pl

@@ -3 +3 @@
 use strict;
 use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
 use Games::Go::Play;
 
@@ -9 +11 @@
 $go->hit([3,3]);
 $go->hit([3,4]);
-$go->show;
+print $go->show;
 
 exit;

lang/perl/Games-Go/trunk/bin/start_go.pl

@@ -32 +32 @@
     return;
 }
-$go->show;
+print $go->show;
 my $play = run_loop( $go, $term );
 
@@ -40 +40 @@
         if ( $in =~ m!^\s*(\d{1,2})\s*\,\s*(\d{1,2})\s*$! ) {
             if ( $go->hit( [ $1, $2 ] ) ) {
-                $go->show;
+                print $go->show;
             }
             else {
@@ -57 +57 @@
             print "3,4";    # dummy
             $go->hit( [ 3, 4 ] );    # dummy
-            $go->show;
+            print $go->show;
         }
         elsif ( $in eq 'p' ) {
@@ -68 +68 @@
         }
         elsif ( $in eq 'g' ) {
-            $go->show;
+            print $go->show;
         }
         elsif ( $in eq 'quit' ) {

lang/perl/Games-Go/trunk/lib/Games/Go/Play.pm

@@ -64 +64 @@
 sub show {
     my ($self) = @_;
+    my $board = "    ";
     my $symbol = {
         $BLACK => ' *',
@@ -70 +71 @@
         $OUT   => '  ',
     };
-    print "    ";
+#    print "    ";
     for ( my $x = 1 ; $x <= $self->{'size'} ; $x++ ) {
-        printf( "% 2s", $x );
-    }
-    print "\n";
+#        printf( "% 2s", $x );
+        $board .= sprintf( "% 2s", $x );
+    }
+#    print "\n";
+    $board .= "\n";
     my $i = 0;
     foreach my $x ( @{ $self->{'board'} } ) {
-        printf( "% 2s", $i ) if ($i);
+#        printf( "% 2s", $i ) if ($i);
+        $board .= sprintf( "% 2s", $i ) if ($i);
         foreach ( @{$x} ) {
-            print $symbol->{$_};
+#            print $symbol->{$_};
+            $board .= $symbol->{$_};
         }
-        print "\n";
+#        print "\n";
+        $board .= "\n";
         $i++;
     }
+    return $board;
 }