diff options
| author | Oliver Tappe | 2008-01-04 17:50:15 +0100 |
|---|---|---|
| committer | Oliver Tappe | 2008-01-04 17:50:15 +0100 |
| commit | 9507d838668846666d2c790a0a1e6e51eb8670de (patch) | |
| tree | 2c843db4b2865319b8d26604c212c5fea07e5bbc /config-db/t/11-export.t | |
| parent | more work at refactoring of the way attributes are handled: (diff) | |
| download | core-9507d838668846666d2c790a0a1e6e51eb8670de.tar.gz core-9507d838668846666d2c790a0a1e6e51eb8670de.tar.xz core-9507d838668846666d2c790a0a1e6e51eb8670de.zip | |
more refactoring (not limited to attribute handling)
* completed separation of attributes and standard (column) values
* improved tests a lot
That work is still not finished, so expect things to fail horribly.
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1443 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/t/11-export.t')
| -rw-r--r-- | config-db/t/11-export.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/config-db/t/11-export.t b/config-db/t/11-export.t index 96fad00b..0cdc688c 100644 --- a/config-db/t/11-export.t +++ b/config-db/t/11-export.t @@ -1,5 +1,8 @@ use Test::More qw(no_plan); +use strict; +use warnings; + use lib '/opt/openslx/lib'; # basic init @@ -223,6 +226,9 @@ ok( is($export1->{id}, 1, 'really got export number 1'); is($export1->{name}, q{EXP-'1'}, q{really got export named "EXP-'1'"}); +# changing nothing at all should succeed +ok($configDB->changeExport(1), 'changing nothing at all in export 1'); + # changing a non-existing column should fail ok( ! eval { $configDB->changeExport(1, { xname => "xx" }) }, |