#!/usr/bin/env perl
$^W = 0;
use warnings;
use strict;
use Test::More tests => 9;
use version;
# Check that the qv() implementation does not change
ok(qv(1.2.3) > qv(1));
ok(qv(1.2.3) > qv(1.0));
ok(qv(1.2.3) > qv(1.2.0));
ok(qv(1.2.3) > qv(1.2.2.0));
ok(qv(1.2.3) < qv(2));
ok(qv(1.2.3) < qv(1.3));
ok(qv(1.2.3) < qv(1.2.4));
ok(qv(1.2.3) < qv(1.2.3.1));
ok(qv(1.2.3) == qv(1.2.3));