# $Id: test.pl,v 1.17 2004/01/03 19:09:42 cvspub Exp $
use Test::More qw(no_plan);
ok(1);
use Data::Dumper;
use ExtUtils::testlib;

BEGIN {
    print "The test needs internet connection. Be sure to get connected, or you will get several error messages.\n";

    use_ok 'WWW::Google::Groups';
    $group = 'comp.lang.perl.misc';
    $target = $group;
    open F, ".proxy";
    chomp ($proxy=<F>);
    close F;
    unlink ".proxy";
}

END{
    unlink $target;
}


use subs qw(search step_by_step all_in_one);


search();
all_in_one();
step_by_step();




sub search {
    $agent = new WWW::Google::Groups(
				     server => 'http://groups.google.com',
				     proxy => $proxy,
				     );
    $result = $agent->search(
			 query => 'groups',
			     );
    
    
    if( $thread = $result->next_thread ){
	ok(ref($thread));
	
	$article = $thread->next_article();
	ok(ref($article));
	
	$article = $thread->next_article('raw');
	ok(!ref($article));
    }
}


sub step_by_step {
    $agent = new WWW::Google::Groups(
				     server => 'http://groups.google.com',
				     proxy => $proxy,
				     );
    ok(ref($agent));
    
    $group = $agent->select_group($group);
    ok(ref($group));
    
    if( $thread = $group->next_thread() ){
	ok(ref($thread));
	
	$article = $thread->next_article();
	ok(ref($article));
	
	ok($thread->title);
	ok($article->header('From'));
	ok($article->body);
    }
}

sub all_in_one {
    $agent = new WWW::Google::Groups(
				     server => 'http://groups.google.com',
				     proxy => $proxy,
				     );

    ok($agent->save2mbox(
			 group => $group,
			 starting_thread => 0,
#		     max_article_count => 2,
			 max_thread_count => 2,
			 target_mbox => $target,
			 ));
    ok(-f $target);

}