@@ -61,6 +61,7 @@ (define-module (gnu packages search)
#:use-module (gnu packages linux)
#:use-module (gnu packages pcre)
#:use-module (gnu packages perl)
+ #:use-module (gnu packages perl-check)
#:use-module (gnu packages pdf)
#:use-module (gnu packages photo)
#:use-module (gnu packages python)
@@ -171,6 +172,68 @@ (define-public python-xapian-bindings
(synopsis "Python bindings for the Xapian search engine library")
(license license:gpl2+)))
+(define-public perl-search-estraier
+ (package
+ (name "perl-search-estraier")
+ (version "0.09")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/D/DP/DPAVLIN/Search-Estraier-" version
+ ".tar.gz"))
+ (sha256
+ (base32 "0f3fwbvzqbgmx28cc8qjwld1xvqvjp71sdx2b2amgfjk4mvwf54p"))))
+ (build-system perl-build-system)
+ (arguments
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ ;; # Failed test 'drafts same'
+ ;; # at t/1_Document.t line 78.
+ ;; # got: '@uri=http://localhost/Search-Estraier/
+ ;; # empty=
+ ;; # foo=bar
+ ;; # size=42
+ ;; # zero=0
+ ;; # %VECTOR foo 42 baz 0 bar 100
+ ;; #
+ ;; # This is a test
+ ;; # of pure-perl bindings
+ ;; # for HyperEstraier
+ ;; # This is hidden text
+ ;; #'
+ ;; # expected: '@uri=http://localhost/Search-Estraier/
+ ;; # empty=
+ ;; # foo=bar
+ ;; # size=42
+ ;; # zero=0
+ ;; # %VECTOR baz 0 bar 100 foo 42
+ ;; #
+ ;; # This is a test
+ ;; # of pure-perl bindings
+ ;; # for HyperEstraier
+ ;; # This is hidden text
+ ;; # '
+ ;; # Looks like you failed 1 test of 60.
+ ;; t/1_Document.t ........
+ ;; Dubious, test returned 1 (wstat 256, 0x100)
+ ;; Failed 1/60 subtests
+ ;;
+ (add-after 'unpack 'drop-test
+ (lambda _
+ (delete-file "t/1_Document.t"))))))
+ (propagated-inputs (list perl-libwww
+ perl-test-exception
+ perl-uri))
+ (home-page "https://metacpan.org/release/Search-Estraier")
+ (synopsis "Pure perl module to use Hyper Estraier search engine")
+ (description "This module is implementation of node API of Hyper Estraier.
+Since it's a Perl-only module with dependencies only on standard Perl modules,
+it will run on all platforms on which Perl runs. It doesn't require
+compilation or Hyper Estraier development files on the target machine.")
+ (license license:perl-license)))
+
(define-public perl-search-xapian
(package
(name "perl-search-xapian")