diff options
| -rw-r--r-- | NEWS | 2 | ||||
| -rw-r--r-- | README | 29 | ||||
| -rw-r--r-- | TODO | 3 | ||||
| -rw-r--r-- | tests/server/admin-t.in | 9 | ||||
| -rw-r--r-- | tests/server/backend-t.in | 9 | ||||
| -rw-r--r-- | tests/server/keytab-t.in | 9 |
6 files changed, 28 insertions, 33 deletions
@@ -28,6 +28,8 @@ wallet 0.9 (unreleased) Stop setting Stanford-specific compile-time defaults for the wallet server and port. + Perl 5.8 is required to run the test suite, but IO::String is not. + wallet 0.8 (2008-02-13) Fix the wallet client to use check instead of exists. @@ -111,25 +111,24 @@ REQUIREMENTS support also requires building kasetkey, which requires AFS and Kerberos v4 libraries. - To run the test suite, you must have the Perl modules Test::More, - IO::String, and DBI installed. You will also need a DBD module - installed for the database backend you want to use (currently, either - DBD::SQLite or DBD::mysql). Test::More comes with Perl 5.8 or later. - The other modules are available from CPAN and may be available as - part of your OS (many Linux distributions have them as packages, for - example). + To run the test suite, you must have Perl 5.8 or later and the Perl DBI + module installed. You will also need a DBD module installed for the + database backend you want to use (currently, either DBD::SQLite or + DBD::mysql). The other modules are available from CPAN and may be + available as part of your OS (many Linux distributions have them as + packages, for example). To run the full test suite, additionally all of the above software requirements must be met. Tests requiring some bit of software that's not installed should be skipped, but not all the permutations have been - checked. The test suite also requires Perl 5.8 or later, the Test::Pod - Perl module (available from CPAN), that remctld be installed and - available on the user's path or in /usr/local/sbin or /usr/sbin, that - test cases can run services on and connect to ports 14373 and 14444 on - 127.0.0.1, and that kinit and kvno (which come with Kerberos) be - installed and available on the user's path. The full test suite also - requires a local keytab, a srvtab with ADMIN access to a test AFS - kaserver, and some additional configuration. + checked. The full test suite also requires the Test::Pod Perl module + (available from CPAN), that remctld be installed and available on the + user's path or in /usr/local/sbin or /usr/sbin, that test cases can run + services on and connect to ports 14373 and 14444 on 127.0.0.1, and that + kinit and kvno (which come with Kerberos) be installed and available on + the user's path. The full test suite also requires a local keytab, a + srvtab with ADMIN access to a test AFS kaserver, and some additional + configuration. If you change the Automake files and need to regenerate Makefile.in, you will need Automake 1.10 or later. If you change configure.ac or any of @@ -2,9 +2,6 @@ Release 1.0: -* Rewrite the server checks to avoid using IO::String, since one of the - tests already requires Perl 5.8's internal string handling. - * Add POD coverage testing using Test::POD::Coverage for the server modules. diff --git a/tests/server/admin-t.in b/tests/server/admin-t.in index 177ef70..be40880 100644 --- a/tests/server/admin-t.in +++ b/tests/server/admin-t.in @@ -9,7 +9,6 @@ # See LICENSE for licensing terms. use strict; -use IO::String; use Test::More tests => 54; # Create a dummy class for Wallet::Admin that prints what method was called @@ -84,10 +83,10 @@ eval { do '@abs_top_srcdir@/server/wallet-admin' }; # Wallet::Admin class. sub run_admin { my (@args) = @_; - my $result; - my $output = IO::String->new (\$result); - $output->autoflush (1); - select $output; + my $result = ''; + open (OUTPUT, '>', \$result) or die "cannot create output string: $!\n"; + select OUTPUT; + local $| = 1; eval { command (@args) }; my $error = $@; select STDOUT; diff --git a/tests/server/backend-t.in b/tests/server/backend-t.in index 0b65c07..bc708f2 100644 --- a/tests/server/backend-t.in +++ b/tests/server/backend-t.in @@ -9,7 +9,6 @@ # See LICENSE for licensing terms. use strict; -use IO::String; use Test::More tests => 1263; # Create a dummy class for Wallet::Server that prints what method was called @@ -171,10 +170,10 @@ eval { do '@abs_top_srcdir@/server/wallet-backend' }; # Wallet::Server class. sub run_backend { my (@args) = @_; - my $result; - my $output = IO::String->new (\$result); - $output->autoflush (1); - select $output; + my $result = ''; + open (OUTPUT, '>', \$result) or die "cannot create output string: $!\n"; + select OUTPUT; + local $| = 1; eval { command (@args) }; my $error = $@; select STDOUT; diff --git a/tests/server/keytab-t.in b/tests/server/keytab-t.in index dbc653e..f74267d 100644 --- a/tests/server/keytab-t.in +++ b/tests/server/keytab-t.in @@ -11,7 +11,6 @@ use strict; use vars qw($CONFIG $KADMIN $SYSLOG $TMP); -use IO::String; use Test::More tests => 63; # Load the keytab-backend code and override various settings. @@ -25,10 +24,10 @@ $TMP = '.'; # Run the keytab backend. sub run_backend { my (@args) = @_; - my $result; - my $output = IO::String->new (\$result); - $output->autoflush (1); - select $output; + my $result = ''; + open (OUTPUT, '>', \$result) or die "cannot create output string: $!\n"; + select OUTPUT; + local $| = 1; eval { download (@args) }; my $error = $@; select STDOUT; |