# Copyright (c) 2007 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: RowTag.bunit,v 1.5 2008/09/02 21:36:57 nagler Exp $
PropertyModel({
    compute_params => sub {
	my($case, $params) = @_;
	my($m) = $case->get('method');
	return $m eq 'replace_value' ? $params
	    : $m eq 'get_value' ? [
		req('auth_id'),
		from_type(qw(RowTagKey ERROR_DETAIL)),
	    ] : [{
		primary_id => req('auth_id'), 
		key => from_type(qw(RowTagKey ERROR_DETAIL)),
		@$params ? (value => $params->[0]) : (),
	    }];
    },
});
req()->set_realm('demo');
[
    delete => not_die(),
    create => [
	[undef] => not_die(),
    ],
    unsafe_load => 0,
    create => [
	x1 => not_die(),
    ],
    update => [
	x2 => not_die(),
    ],
    get_value => 'x2',
    update => [
	[undef] => not_die(),
    ],
    get_value => [
	[] => [undef],
    ],
    replace_value => [
	[req('auth_id'), ERROR_DETAIL => 'x3'] => not_die(),
    ],
    get_value => 'x3',
    replace_value => [
	[req('auth_id'), ERROR_DETAIL => undef] => not_die(),
    ],
    get_value => [
	[] => [undef],
    ],
    replace_value => [
	[req(qw(auth_realm owner)), ERROR_DETAIL => 'x5'] => not_die(),
	[ERROR_DETAIL => 'x4'] => not_die(),
    ],
    get_value => [
	[] => 'x4',
	ERROR_DETAIL => 'x4',
	[RowTagKey('ERROR_DETAIL')] => 'x4',
    ],
];