#!/usr/bin/perl

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More tests => 5;
use Test::NoWarnings;
use File::Spec ();
use OpenGL::RWX;

# Locate the test file
my $file = File::Spec->catfile( 't', 'data', 'pan4test', 'pan4test.rwx' );
ok( -f $file, "Found test file $file" );

# Create the object
my $rwx = new_ok( 'OpenGL::RWX', [
	file => $file,
], 'Created RWX object' );

# Load the model
ok( $rwx->init, '->init ok' );
ok( defined $rwx->list, '->list ok' );