Mercurial > pidgin

comparison plugins/perl/scripts/conversation.pl @ 12364:6fd82071a7b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 14668] sf patch #1373688, from Will Thompson "Make the Perl bindings more Perl-ish" committer: Tailor Script <tailor@pidgin.im>
author Mark Doliner <mark@kingant.net>
date Mon, 05 Dec 2005 23:54:34 +0000
parents 11d14efe7be2
children
comparison
equal deleted inserted replaced
12363:f758af0373cb 12364:6fd82071a7b8
48 $account = Gaim::Accounts::find($USERNAME, $PROTOCOL_ID); 48 $account = Gaim::Accounts::find($USERNAME, $PROTOCOL_ID);
49 49
50 ######### TEST CODE HERE ########## 50 ######### TEST CODE HERE ##########
51 # First we create two new conversations. 51 # First we create two new conversations.
52 print "Testing Gaim::Conversation::new()..."; 52 print "Testing Gaim::Conversation::new()...";
53 $conv1 = Gaim::Conversation::new(1, $account, "Test Conversation 1"); 53 $conv1 = Gaim::Conversation->new(1, $account, "Test Conversation 1");
54 if ($conv1) { print "ok.\n"; } else { print "fail.\n"; } 54 if ($conv1) { print "ok.\n"; } else { print "fail.\n"; }
55 55
56 print "Testing Gaim::Conversation::new()..."; 56 print "Testing Gaim::Conversation::new()...";
57 $conv2 = Gaim::Conversation::new(1, $account, "Test Conversation 2"); 57 $conv2 = Gaim::Conversation->new(1, $account, "Test Conversation 2");
58 if ($conv2) { print "ok.\n"; } else { print "fail.\n"; } 58 if ($conv2) { print "ok.\n"; } else { print "fail.\n"; }
59 59
60 # Second we create a window to display the conversations in. 60 # Second we create a window to display the conversations in.
61 # Note that the package here is Gaim::Conversation::Window 61 # Note that the package here is Gaim::Conversation::Window
62 print "Testing Gaim::Conversation::Window::new()...\n"; 62 print "Testing Gaim::Conversation::Window::new()...\n";