File: Pango.t

package info (click to toggle)
libpango-perl 1.227-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 572 kB
  • sloc: perl: 1,116; ansic: 35; makefile: 9
file content (11 lines) | stat: -rw-r--r-- 300 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;

use_ok ('Pango');

my @version = Pango->GET_VERSION_INFO;
is (@version, 3, 'version info is three items long');
ok (Pango->CHECK_VERSION(0, 0, 0), 'CHECK_VERSION pass');
ok (!Pango->CHECK_VERSION(50, 0, 0), 'CHECK_VERSION fail');