#!/usr/sbin/perl -w

use ExtUtils::testlib;
use Point_2D;

my $pt;
my $output;

print "making object\n";
$pt = Point_2D::new(Point_2D);
print "setting value\n";
Point_2D::set_x($pt,1.2);
print "retrieving value\n";
$output = Point_2D::x($pt);
print "output = ",$output;