Mercurial > pub > Impl

annotate _test/ORM.t @ 37:c2e7f7c96bcd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
performance improvements, DOM reworked (a little)
author Sergey
date Mon, 23 Nov 2009 00:59:06 +0300
parents dd4d72600c69
children 16ada169ca75
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
30
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
1 #!/usr/bin/perl -w
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
2 use strict;
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
3 use lib '../Lib';
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
4 use lib '.';
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
5
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
6 use IMPL::Test::Plan;
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
7 use IMPL::Test::TAPListener;
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
8
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
9 my $plan = new IMPL::Test::Plan qw(
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
10 Test::ORM::Schema
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
11 );
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
12
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
13 $plan->AddListener(new IMPL::Test::TAPListener);
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
14 $plan->Prepare();
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
15 $plan->Run();
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
16
dd4d72600c69 ORM in works
Sergey
parents:
diff changeset
17 1;