Mercurial > pidgin
view libgaim/plugins/perl/scripts/account.pl @ 14449:74cdcd0c58b5
[gaim-migrate @ 17163]
Make Gaim::Gtk actually work in wingaim.
committer: Tailor Script <tailor@pidgin.im>
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Tue, 05 Sep 2006 02:09:17 +0000 |
parents | 60b1bc8dbf37 |
children | cb7eef7bf550 |
line wrap: on
line source
$MODULE_NAME = "Account Functions Test"; use Gaim; # All the information Gaim gets about our nifty plugin %PLUGIN_INFO = ( perl_api_version => 2, name => " Perl: $MODULE_NAME", version => "0.1", summary => "Test plugin for the Perl interpreter.", description => "Implements a set of test proccedures to ensure all " . "functions that work in the C API still work in the " . "Perl plugin interface. As XSUBs are added, this " . "*should* be updated to test the changes. " . "Furthermore, this will function as the tutorial perl " . "plugin.", author => "John H. Kelm <johnhkelm\@gmail.com>", url => "http://sourceforge.net/users/johnhkelm/", load => "plugin_load", unload => "plugin_unload" ); # These names must already exist my $GROUP = "UIUC Buddies"; my $USERNAME = "johnhkelm2"; # We will create these on load then destroy them on unload my $TEST_GROUP = "perlTestGroup"; my $TEST_NAME = "perlTestName"; my $TEST_ALIAS = "perlTestAlias"; my $PROTOCOL_ID = "prpl-oscar"; sub plugin_init { return %PLUGIN_INFO; } # This is the sub defined in %PLUGIN_INFO to be called when the plugin is loaded # Note: The plugin has a reference to itself on top of the argument stack. sub plugin_load { my $plugin = shift; print "#" x 80 . "\n\n"; Gaim::debug_info("plugin_load()", "Testing $MODULE_NAME Started."); print "\n\n"; ################################# # # # Gaim::Account::Option # # # ################################# print "Testing: Gaim::Account::Option::new()...\n"; $acc_opt = Gaim::Account::Option->new(1, "TEXT", "pref_name"); $acc_opt2 = Gaim::Account::Option->bool_new("TeXt", "MYprefName", 1); ################################# # # # Gaim::Account # # # ################################# print "Testing: Gaim::Account::new()... "; $account = Gaim::Account->new($TEST_NAME, $PROTOCOL_ID); if ($account) { print "ok.\n"; } else { print "fail.\n"; } print "Testing: Gaim::Accounts::add()..."; Gaim::Accounts::add($account); print "pending find...\n"; print "Testing: Gaim::Accounts::find()..."; $account = Gaim::Accounts::find($TEST_NAME, $PROTOCOL_ID); if ($account) { print "ok.\n"; } else { print "fail.\n"; } print "Testing: Gaim::Account::get_username()... "; $user_name = $account->get_username(); if ($user_name) { print "Success: $user_name.\n"; } else { print "Failed!\n"; } print "Testing: Gaim::Account::is_connected()... "; if ($account->is_connected()) { print " Connected.\n"; } else { print " Disconnected.\n"; } print "Testing: Gaim::Accounts::get_active_status()... "; if ($account->get_active_status()) { print "Okay.\n"; } else { print "Failed!\n"; } $account = Gaim::Accounts::find($USERNAME, $PROTOCOL_ID); print "Testing: Gaim::Accounts::connect()...pending...\n"; $account->set_status("available", TRUE); $account->connect(); print "\n\n"; Gaim::debug_info("plugin_load()", "Testing $MODULE_NAME Completed."); print "\n\n" . "#" x 80 . "\n\n"; } sub plugin_unload { my $plugin = shift; print "#" x 80 . "\n\n"; Gaim::debug_info("plugin_unload()", "Testing $MODULE_NAME Started."); print "\n\n"; ######### TEST CODE HERE ########## print "\n\n"; Gaim::debug_info("plugin_unload()", "Testing $MODULE_NAME Completed."); print "\n\n" . "#" x 80 . "\n\n"; }