Tests
- Proofs of functionality
use Test::More 'no_plan'; my $q = Queue->new; is $q->size, 0, 'empty queue'; $q->enqueue( 'foo' ); is $q->size, 1, 'one item';
| Contracts in Perl | 'Class::Agreement' | #4 |
use Test::More 'no_plan'; my $q = Queue->new; is $q->size, 0, 'empty queue'; $q->enqueue( 'foo' ); is $q->size, 1, 'one item';
| Copyright © 2005 Ian Langworth |