view release on metacpan or  search on metacpan

t/inline.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use Test::Most tests => 2;

use Test::Needs qw(Inline::CPP);

subtest "Testing version" => sub {
	Inline->import( with => 'Alien::Kiwisolver' );
	Inline->bind( CPP => <<'EOF' );
char* kiwi_version() {
	return KIWI_VERSION;
}
EOF

	note kiwi_version();
	like kiwi_version(), qr/^[\d.]+$/, 'Got version';
};

subtest "Testing constraints" => sub {
	Inline->import( with => 'Alien::Kiwisolver' );
	Inline->bind( CPP => <<'EOF' );
using namespace kiwi;

SV* kiwi_constraints() {
	Variable x1("x1");
	Variable x2("x2");
	Variable xm("xm");

	Constraint constraints[] = {
		Constraint {x1 >= 0},
		Constraint {x2 <= 100},