Commit | Line | Data |
---|---|---|
8e5d9092 | 1 | #!/usr/bin/env perl |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use FindBin; | |
6 | use lib "$FindBin::Bin/lib"; | |
7 | ||
8 | use Test::More; | |
9 | use Catalyst::Test 'TestApp'; | |
10 | ||
11 | my $counter = 1; | |
12 | ||
13 | is get('/model_test/next'), $counter++, 'modifying model' | |
14 | for 1 .. 3; | |
15 | ||
fcb80346 | 16 | is get('/model_test/reset'), 'reset', 'reset'; |
17 | ||
18 | $counter = 1; | |
19 | is get('/model_test/next'), $counter++, 'modifying model' | |
20 | for 1 .. 3; | |
21 | ||
8e5d9092 | 22 | |
23 | done_testing; |