@@ -232,7 +232,7 @@ they do, and what they expect.
testclass NAME?
( exercises CLASS
| extends CLASS (, CLASS)*
- | +?uses HELPER (, HELPER)*
+ | uses HELPER (, HELPER)*
)*
Where B<NAME> is is an optional test class name - the sort of thing you're
@@ -259,7 +259,7 @@ inheritance. Friends don't let friends do multiple inheritance, but
Test::Class::Sugar's not a friend, it's a robot servant which will provide you
with more than enough rope.
-=item +?uses HELPER (, HELPER)*
+=item uses HELPER (, HELPER)*
Ah, the glory that is the C<uses> clause. If you don't provide a uses clause,
Test::Class::Sugar will assume that you want to use L<Test::Most> as your
@@ -273,14 +273,6 @@ making you write C<uses Test::This, Test::That, Test::TheOther>, you can write
C<uses -This, -That, -TheOther> and we'll expand the C<-> into C<Test::> and
do the right thing.
-If, like me, you like Test::Most, but you want to use some other helper
-modules, then you'd do:
-
- testclass AnotherExample +uses -MockObject, Moose {...}
-
-C<+uses> extends the list of helper classes, so as well as autousing
-Test::Most, you'll get L<Test::MockObject> and L<Moose>.
-
Note that, if you need to do anything special in the way of import arguments,
you should do the C<use> yourself. We're all about the 80:20 rule here.
lib/Test/Class/Sugar.pm
@@ -97,7 +97,7 @@ sub strip_testclass_name {
my $self = shift;
$self->skipspace;
- ! $self->looking_at(qr/^(?:\+?uses|ex(?:tends|ercises))/, 9)
+ ! $self->looking_at(qr/^(?:uses|ex(?:tends|ercises))/, 9)
&& $self->strip_name;
}
@@ -133,16 +133,9 @@ sub strip_class_under_test {
sub strip_helper_classes {
my($self, $opts) = @_;
- my $keyword = 'uses';
- if ($self->looking_at('+')) {
- $keyword = "+".$keyword;
- }
- return unless $self->strip_string($keyword);
+ return unless $self->strip_string('uses');
- $opts->{helpers} //=
- $keyword eq '+helper'
- ? [qw/Test::Most/]
- : [];
+ $opts->{helpers} //= [];
while (1) {
$self->skipspace;
lib/Test/Class/Sugar/Context.pm
@@ -38,12 +38,6 @@ testclass ShortcutHelper uses -Exception {
}
}
-testclass AddsCarp +uses Carp, -Warn {
- test warning_test {
- warning_like { carp "foo" } qr/foo/, "expects a warning";
- }
-}
-
testclass TestClass exercises Test::Class::Sugar {
test test_requirement {
ok $test->subject->isa( 'UNIVERSAL' );
t/initial.t
f32851fd3c2777934dc88750eb43f4116dd363e7
Piers Cawley
pdcawley@bofh.org.uk
http://github.com/pdcawley/test-class-sugar/commit/cdbc7ef17a349536089a3937d4bc694941c9bd4f
cdbc7ef17a349536089a3937d4bc694941c9bd4f
2009-04-03T23:15:10-07:00
2009-04-03T23:15:10-07:00
Removed the confusing +uses keyword
5a25d8dcd88deb02be0f007447c402e0b014e489
Piers Cawley
pdcawley@bofh.org.uk