File: 00_basic.t

package info (click to toggle)
libopengl-modern-perl 0.0401-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 5,592 kB
  • sloc: perl: 82,853; ansic: 47,600; makefile: 3
file content (12 lines) | stat: -rw-r--r-- 273 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 
use strict;
use warnings;
use Test::More;
use OpenGL::Modern;

for my $function ( qw(glClear ) ) {
    my $exported = 0;
    eval { OpenGL::Modern->import( $function ); $exported = 1 };
    ok( $exported, "Function $function gets exported upon request" );
}

done_testing;