1# Before `make install' is performed this script should be runnable with 2# `make test'. After `make install' it should work as `perl ZBar.t' 3 4use warnings; 5use strict; 6use Test::More tests => 3; 7 8######################### 9 10BEGIN { use_ok('Barcode::ZBar') } 11 12######################### 13 14like(Barcode::ZBar::version(), qr<\d.\d>, 'version'); 15 16######################### 17 18Barcode::ZBar::set_verbosity(16); 19Barcode::ZBar::increase_verbosity(); 20pass('verbosity'); 21 22######################### 23