Apache-SWIT

 view release on metacpan or  search on metacpan

lib/Apache/SWIT/Test.pm  view on Meta::CPAN

	delete $args{error_ok};
	my $b = delete $args{button};
	$args{button} = $b->[0] if $b;
	$self->_filter_out_readonly(\%args);
	$self->mech->submit_form(%args);
	return $self->mech->content;
}

sub _decode_utf8_arr {
	my $arr = shift;
	return $arr if ref($arr) ne 'ARRAY'; # DateTime for example
	for (my $i = 0; $i < @$arr; $i++) {
		my $r = ref($arr->[$i]);
		$arr->[$i] = $r ? $r eq 'ARRAY' ? _decode_utf8_arr($arr->[$i])
						: _decode_utf8($arr->[$i])
				: Encode::decode_utf8($arr->[$i]);

	}
	return $arr;
}

t/T/DBPage.pm  view on Meta::CPAN

	$rc->bind_to_class_dbi("T::DBPage::DB");
	my $c = $rc->ht_add_widget(HT."::List", 'arr')->containee;
	$c->ht_add_widget(HTV."::Marked", "val");
}

sub ht_swit_render {
	my ($class, $r, $root) = @_;
	$root->cdbi_load;
	$root->arr([ $root->arr_containee->new({ val => $root->val }) ]);
	$root->sel([ [ 1, $root->val || "ded" ], [ 2, 'baba', 1 ] ]);
	$root->dt(DateTime->now);
	return $root;
}

sub ht_swit_update {
	my ($class, $r, $root) = @_;
	$root->cdbi_create_or_update;
	return $root->ht_make_query_string("r", "id");
}

1;

t/apache/070_unicode.t  view on Meta::CPAN

use strict;
use warnings FATAL => 'all';

use utf8;
use Test::More tests => 11;
use Apache::SWIT::Test::Utils;
use Apache::SWIT::Session;
use Carp;
use HTML::Tested::Test::DateTime;

BEGIN { use_ok('T::Test');
	use_ok('T::DBPage');
	$SIG{__WARN__} = sub { diag(Carp::longmess(@_)); };
	# $SIG{__DIE__} = sub { diag(Carp::longmess(@_)); exit; };
}

T::Test->make_aliases(db_page => 'T::DBPage');
is($ENV{SWIT_HAS_APACHE}, 1);

t/apache/070_unicode.t  view on Meta::CPAN

ASTU_Reset_Table("dbp");

$ENV{SWIT_HAS_APACHE} = 0;
$t = T::Test->new({ session_class => 'Apache::SWIT::Session' });

$t->ht_db_page_u(ht => { HT_SEALED_id => 1, val => 'дед' });
$t->ok_ht_db_page_r(param => { HT_SEALED_id => 1 }, ht => {
	HT_SEALED_id => '1', val => 'дед',
	, arr => [ { val => 'дед' } ]
	, sel => [ [ 1, 'дед' ], [ 2, 'baba', 1 ] ]
	, dt => HTML::Tested::Test::DateTime->now(10)
});
ASTU_Reset_Table("dbp");

$ENV{SWIT_HAS_APACHE} = 1;
$t = T::Test->new({ session_class => 'Apache::SWIT::Session' });

$t->ok_ht_db_page_r(base_url => '/test/db_page/r', ht => {
	HT_SEALED_id => '', val => '',
});
$t->ht_db_page_u(ht => { val => 'дед' });