package Yote::Test::TestAppNoLogin;

#
# created for the html unit tests
#

use strict;
use warnings;

use Yote::Obj;

use base 'Yote::AppRoot';

use vars qw($VERSION);

$VERSION = '0.02';

#
# need subs to return : scalars, lists, hashes, g-objects
#
sub _init {
    my $self = shift;
    $self->set_File( undef );
}

sub scalar {
    my( $self, $data, $acct ) = @_;
    return "BEEP";
}

sub apply_zap {
    my( $self, $data, $acct ) = @_;
    $self->set_zap( $data );
}

sub reset {
    my $self = shift;
    $self->set_zap( undef );
    $self->set_Files( [] );
    $self->set_File( undef );
}

sub UpOne {
    my( $self, $data, $acct ) = @_;
    $self->set_File( $data->{somefile_3} );
}

sub Upload {
    my( $self, $data, $acct ) = @_;
    $self->add_to_Files( $data->{somefile} );
    $self->add_to_Files( $data->{somefile_2} );
    return '';
}

1;

__END__

=head1 DESCRIPTION

Program for unit tests

=head1 PUBLIC METHODS

=over 4

=item apply_zap 

=item reset

=item scalar

=item UpOne

=item Upload

=back

=head1 AUTHOR

Eric Wolf

=head1 LICENSE AND COPYRIGHT

Copyright (C) 2011 Eric Wolf

This module is free software; it can be used under the same terms as perl
itself.

=cut
