Move Quvi.pod to doc/man3/
[www-quvi.git] / t / 01_codes.t
blob1682257221211b0bd48c554e191d5ec2ad88c8da
2 # WWW::Quvi
3 # Copyright (C) 2011  Toni Gundogdu <legatvs@gmail.com>
5 # This program is free software; you can redistribute it and/or
6 # modify it under the terms of the GNU General Public License
7 # as published by the Free Software Foundation; either version 2
8 # of the License, or (at your option) any later version.
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with this program; if not, write to the Free Software
17 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
18 # 02110-1301, USA.
21 use warnings;
22 use strict;
24 use Test::More;
25 use WWW::Quvi;
27 my @return = (
28  WWW::Quvi::OK,
29  WWW::Quvi::Mem,
30  WWW::Quvi::BadHandle,
31  WWW::Quvi::InvArg,
32  WWW::Quvi::CurlInit,
33  WWW::Quvi::Last,
34  WWW::Quvi::AbortedByCallback,
35  WWW::Quvi::LuaInit,
36  WWW::Quvi::NoLuaWebsite,
37  WWW::Quvi::NoLuaUtil,
38  WWW::Quvi::NoSupport,
39  WWW::Quvi::CallbackError,
40  WWW::Quvi::IconvError,
41  WWW::Quvi::LuaError
44 my @proto = (
45   WWW::Quvi::ProtoHttp,
46   WWW::Quvi::ProtoMms,
47   WWW::Quvi::ProtoRtsp,
48   WWW::Quvi::ProtoRtmp,
49   WWW::Quvi::ProtoAll
52 plan tests => scalar @return + scalar @proto;
54 my $n = -1;
55 foreach (@return) {
56   is($_, ++$n);
57 #  diag "$_,$n\n";
58   $n = 0x40 if $n == WWW::Quvi::NoLuaUtil;
61 $n = 1;
62 foreach (@proto) {
63   is($_, $n);
64 #  diag "$_,$n\n";
65   if ($n == WWW::Quvi::ProtoRtmp) {
66     $n = 0x1|0x2|0x4|0x8;
67   }
68   else {
69     $n = $n << 1;
70   }
73 # vim: set ts=2 sw=2 tw=72 expandtab: