argra****@users*****
argra****@users*****
2013年 11月 6日 (水) 18:40:50 JST
Index: docs/modules/Test-Simple-0.98/Test/Builder.pod
diff -u docs/modules/Test-Simple-0.98/Test/Builder.pod:1.1 docs/modules/Test-Simple-0.98/Test/Builder.pod:1.2
--- docs/modules/Test-Simple-0.98/Test/Builder.pod:1.1 Sat Nov 2 03:45:04 2013
+++ docs/modules/Test-Simple-0.98/Test/Builder.pod Wed Nov 6 18:40:50 2013
@@ -43,6 +43,8 @@
=head2 Construction
+(構築)
+
=over 4
=item B<new>
@@ -188,15 +190,8 @@
if ( $Test->_plan_handled ) { ... }
-=begin original
-
Returns true if the developer has explicitly handled the plan via:
-=end original
-
-Returns true if the developer has explicitly handled the plan via:
-(TBT)
-
=over 4
=item * Explicitly setting the number of tests
@@ -207,16 +202,8 @@
=back
-=begin original
-
-This is currently used in subtests when we implicitly call C<< $Test->done_testing >>
-if the developer has not set a plan.
-
-=end original
-
This is currently used in subtests when we implicitly call C<< $Test->done_testing >>
if the developer has not set a plan.
-(TBT)
=end _private
@@ -340,6 +327,8 @@
=head2 Setting up tests
+(テストの設定)
+
=begin original
These methods are for setting up tests and declaring how many there
@@ -443,39 +432,16 @@
$tb->_output_plan($max, $directive);
$tb->_output_plan($max, $directive => $reason);
-=begin original
-
Handles displaying the test plan.
-=end original
-
-Handles displaying the test plan.
-(TBT)
-
-=begin original
-
If a C<$directive> and/or C<$reason> are given they will be output with the
plan. So here's what skipping all tests looks like:
-=end original
-
-If a C<$directive> and/or C<$reason> are given they will be output with the
-plan. So here's what skipping all tests looks like:
-(TBT)
-
$tb->_output_plan(0, "SKIP", "Because I said so");
-=begin original
-
It sets C<< $tb->{Have_Output_Plan} >> and will croak if the plan was already
output.
-=end original
-
-It sets C<< $tb->{Have_Output_Plan} >> and will croak if the plan was already
-output.
-(TBT)
-
=end private
=cut
@@ -638,6 +604,8 @@
=head2 Running tests
+(テストの実行)
+
=begin original
These actually run the tests, analogous to the functions in Test::More.
@@ -819,6 +787,8 @@
=head2 Other Testing Methods
+(その他のテストメソッド)
+
=begin original
These are methods which are used in the course of writing a test but are not themselves tests.
@@ -934,6 +904,8 @@
=head2 Test building utility methods
+(テスト構築ユーティリティメソッド)
+
=begin original
These methods are useful when writing your own test methods.
@@ -1022,38 +994,14 @@
my $return_from_code = $Test->try(sub { code });
my($return_from_code, $error) = $Test->try(sub { code });
-=begin original
-
-Works like eval BLOCK except it ensures it has no effect on the rest
-of the test (ie. C<$@> is not set) nor is effected by outside
-interference (ie. C<$SIG{__DIE__}>) and works around some quirks in older
-Perls.
-
-=end original
-
Works like eval BLOCK except it ensures it has no effect on the rest
of the test (ie. C<$@> is not set) nor is effected by outside
interference (ie. C<$SIG{__DIE__}>) and works around some quirks in older
Perls.
-(TBT)
-
-=begin original
C<$error> is what would normally be in C<$@>.
-=end original
-
-C<$error> is what would normally be in C<$@>.
-(TBT)
-
-=begin original
-
-It is suggested you use this in place of eval BLOCK.
-
-=end original
-
It is suggested you use this in place of eval BLOCK.
-(TBT)
=cut
@@ -1078,6 +1026,8 @@
=head2 Test style
+(テストスタイル)
+
=over 4
=item B<level>
@@ -1243,6 +1193,8 @@
=head2 Output
+(出力)
+
=begin original
Controlling where the test output goes.
@@ -1384,15 +1336,8 @@
$Test->_print(@msgs);
-=begin original
-
Prints to the C<output()> filehandle.
-=end original
-
-Prints to the C<output()> filehandle.
-(TBT)
-
=end _private
=cut
@@ -1536,6 +1481,8 @@
=head2 Test Status and Info
+(テストステータスと情報)
+
=over 4
=item B<current_test>
@@ -2012,18 +1959,9 @@
$self->_sanity_check();
-=begin original
-
-Runs a bunch of end of test sanity checks to make sure reality came
-through ok. If anything is wrong it will die with a fairly friendly
-error message.
-
-=end original
-
Runs a bunch of end of test sanity checks to make sure reality came
through ok. If anything is wrong it will die with a fairly friendly
error message.
-(TBT)
=cut
@@ -2031,39 +1969,20 @@
$self->_whoa($check, $description);
-=begin original
-
A sanity check, similar to C<assert()>. If the C<$check> is true, something
has gone horribly wrong. It will die with the given C<$description> and
a note to contact the author.
-=end original
-
-A sanity check, similar to C<assert()>. If the C<$check> is true, something
-has gone horribly wrong. It will die with the given C<$description> and
-a note to contact the author.
-(TBT)
-
=cut
=item B<_my_exit>
_my_exit($exit_num);
-=begin original
-
-Perl seems to have some trouble with exiting inside an C<END> block.
-5.6.1 does some odd things. Instead, this function edits C<$?>
-directly. It should B<only> be called from inside an C<END> block.
-It doesn't actually exit, that's your job.
-
-=end original
-
Perl seems to have some trouble with exiting inside an C<END> block.
5.6.1 does some odd things. Instead, this function edits C<$?>
directly. It should B<only> be called from inside an C<END> block.
It doesn't actually exit, that's your job.
-(TBT)
=cut
@@ -2075,6 +1994,8 @@
=head1 EXIT CODES
+(終了コード)
+
=begin original
If all your tests passed, Test::Builder will exit with zero (which is
@@ -2120,6 +2041,8 @@
=head1 THREADS
+(スレッド)
+
=begin original
In perl 5.8.1 and later, Test::Builder is thread-safe. The test
@@ -2157,6 +2080,8 @@
=head1 MEMORY
+(メモリ)
+
=begin original
An informative hash, accessible via C<<details()>>, is stored for each
@@ -2205,20 +2130,13 @@
=end original
-CPAN can provide the best examples. Test::Simple, Test::More,
-Test::Exception and Test::Differences all use Test::Builder.
-(TBT)
+CPAN は最良の例を提供します。
+Test::Simple, Test::More, Test::Exception, Test::Differences は全て
+Test::Builder を使っています。
=head1 SEE ALSO
-=begin original
-
-Test::Simple, Test::More, Test::Harness
-
-=end original
-
Test::Simple, Test::More, Test::Harness
-(TBT)
=head1 AUTHORS
@@ -2235,36 +2153,19 @@
=head1 COPYRIGHT
-=begin original
-
Copyright 2002-2008 by chromatic E<lt>chrom****@wgz*****<gt> and
Michael G Schwern E<lt>schwe****@pobox*****<gt>.
-=end original
-
-Copyright 2002-2008 by chromatic E<lt>chrom****@wgz*****<gt> and
- Michael G Schwern E<lt>schwe****@pobox*****<gt>.
-(TBT)
-
-=begin original
-
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
-=end original
-
-This program is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-(TBT)
-
=begin original
See F<http://www.perl.com/perl/misc/Artistic.html>
=end original
-See F<http://www.perl.com/perl/misc/Artistic.html>
-(TBT)
+F<http://www.perl.com/perl/misc/Artistic.html> を参照してください。
=cut