# Copyright (c) 2008 bivio Software, Inc. All Rights Reserved. # # Visit http://www.bivio.biz for more info. # # This library is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation; either version 2.1 of the # License, or (at your option) any later version. # # This library is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; If not, you may get a copy from: # http://www.opensource.org/licenses/lgpl-license.html # # $Id: FileChangeForm7.bunit,v 1.2 2008/11/17 13:52:31 nagler Exp $ require 'FileChangeForm.PL'; my($_FCM) = __PACKAGE__->use('Type.FileChangeMode'); [ [{ name => 'folder1', mode => $_FCM->ADD_SUBFOLDER, }] => [{ 'Model.RealmFile' => { path => '/folder1', is_folder => 1, }, }], [{ path_info => '/folder1', name => 'folder2', mode => $_FCM->ADD_SUBFOLDER, }] => [{ 'Model.RealmFile' => { path => '/folder1/folder2', is_folder => 1, }, }], error_case({ name => 'blah/foo', mode => $_FCM->ADD_SUBFOLDER, }, { name => 'FILE_NAME', }), error_case({ mode => $_FCM->ADD_SUBFOLDER, }, { name => 'NULL', mode => $_FCM->ADD_SUBFOLDER, }), [{ path_info => '/folderx', name => 'folder3', mode => $_FCM->ADD_SUBFOLDER, }] => MODEL_NOT_FOUND(), ];