mvhub-dev team mailing list archive
-
mvhub-dev team
-
Mailing list archive
-
Message #00468
[Branch ~mvhub-commit/mvhub/trunk] Rev 450: merged lp:~reddy22222/mvhub/add_quick_login_tests
Merge authors:
Sri Redy <reddy22222@xxxxxxxxxx>
Related merge proposals:
https://code.launchpad.net/~reddy22222/mvhub/add_quick_login_tests/+merge/28937
proposed by: Dan MacNeil (omacneil)
review: Needs Fixing - Dan MacNeil (omacneil)
------------------------------------------------------------
revno: 450 [merge]
committer: Dan MacNeil <dan@xxxxxxxxxxxx>
branch nick: trunk
timestamp: Mon 2010-07-12 15:26:54 -0400
message:
merged lp:~reddy22222/mvhub/add_quick_login_tests
added:
lib-mvhub/t/Utils/encode_quick_login_id.t
lib-mvhub/t/Utils/generate_quick_login_url.t
--
lp:mvhub
https://code.launchpad.net/~mvhub-commit/mvhub/trunk
Your team MVHub Developers is subscribed to branch lp:mvhub.
To unsubscribe from this branch go to https://code.launchpad.net/~mvhub-commit/mvhub/trunk/+edit-subscription
=== added file 'lib-mvhub/t/Utils/encode_quick_login_id.t'
--- lib-mvhub/t/Utils/encode_quick_login_id.t 1970-01-01 00:00:00 +0000
+++ lib-mvhub/t/Utils/encode_quick_login_id.t 2010-06-28 20:13:48 +0000
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+
+# $Source$
+# $Revision: 1209 $
+
+use strict;
+use warnings;
+
+# EDIT
+use Test::More tests => 2 + 1; # +1 for NoWarnings
+use Test::NoWarnings;
+
+use MVHub::Utils;
+
+my $test_message;
+my $got = 1;
+my $expected = 1;
+
+###
+$expected = 12346;
+is( MVHub::Utils::encode_quick_login_id(1), $expected, $test_message );
+
+###
+$test_message = 'dies when called without parameter';
+eval { MVHub::Utils::encode_quick_login_id() };
+ok( defined $@, $test_message );
=== added file 'lib-mvhub/t/Utils/generate_quick_login_url.t'
--- lib-mvhub/t/Utils/generate_quick_login_url.t 1970-01-01 00:00:00 +0000
+++ lib-mvhub/t/Utils/generate_quick_login_url.t 2010-07-12 17:48:17 +0000
@@ -0,0 +1,33 @@
+#!/usr/bin/perl -w
+
+# $Source$
+# $Revision: 1209 $
+
+use strict;
+use warnings;
+use MVHub::Utils qw/generate_quick_login_url/;
+
+use Test::More tests => 3 + 1; # +1 for NoWarnings
+use Test::NoWarnings;
+
+my $test_message;
+my $got = 1;
+my $expected = 1;
+
+###
+###
+$test_message = 'website == www.example.com and agency_id == 1';
+$got = generate_quick_login_url( 'www.example.com', 1 );
+$expected = 'http://www.example.com/cgi-bin/mvhub/agency.pl?rm=ql&id=12346';
+is( $got, $expected, $test_message );
+
+$test_message='die when id param is undefined';
+$got=eval { generate_quick_login_url( 'another_example.com', undef ) };
+$expected=undef;
+is( $got, $expected, $test_message );
+
+$test_message='die when website param is undefined';
+$got=eval { generate_quick_login_url( undef, 2 ) };
+$expected = undef;
+is( $got, $expected, $test_message );
+