From 86481abf552229fa72c9e57a805998b8b043c6ea Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Sat, 16 Apr 2016 19:55:17 +0200
Subject: Test sbofind

---
 t/17-find.t | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 t/17-find.t

diff --git a/t/17-find.t b/t/17-find.t
new file mode 100755
index 0000000..5b48474
--- /dev/null
+++ b/t/17-find.t
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+
+use 5.16.0;
+use strict;
+use warnings FATAL => 'all';
+use Test::More;
+use Capture::Tiny qw/ capture_merged /;
+use FindBin '$RealBin';
+use lib $RealBin;
+use lib "$RealBin/../SBO-Lib/lib";
+use Test::Sbotools qw/ make_slackbuilds_txt set_lo sbofind replace_tags_txt /;
+use SBO::Lib 'open_fh';
+
+plan tests => 6;
+
+make_slackbuilds_txt();
+set_lo("$RealBin/LO");
+
+# 1: basic sbofind testing
+sbofind 'nonexistentslackbuild4', { expected => qr!Local:\s+nonexistentslackbuild4\nPath:\s+\Q$RealBin/LO/nonexistentslackbuild4! };
+
+# 2: basic sbofind testing - nothing found
+sbofind 'nonexistentslackbuild3', { expected => "Nothing found for search term: nonexistentslackbuild3\n" };
+
+# 3: find something using a tag
+replace_tags_txt("nonexistentslackbuild2: testingtag\n");
+sbofind 'testingtag', { expected => qr!Local:\s+nonexistentslackbuild2\nPath:\s+\Q$RealBin/LO/nonexistentslackbuild2! };
+
+# 4: show build queue
+sbofind '-q', 'nonexistentslackbuild2', { expected => qr/Queue:\s+nonexistentslackbuild2 nonexistentslackbuild3/ };
+
+# 5: show readme
+sbofind '-r', 'nonexistentslackbuild4', { expected => qr/README: \n      This doesn't exist!/ };
+
+# 6: show info
+sbofind '-i', 'nonexistentslackbuild4', { expected => qr/info:   \n      PRGNAM="nonexistentslackbuild4"/ };
-- 
cgit v1.2.3