#!/usr/bin/env sh

exec guile -s "$0" "$@"

!#

;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>

;;;

;;; SPDX-License-Identifier: GPL-3.0-only

(use-modules (srfi srfi-1)

             (srfi srfi-26)

             (srfi srfi-64)

             (pastebin data))

(define (new-n-entries pb-data n)

  (map (cut pb-data-new-entry pb-data <>)

       (map number->string (iota n))))

(test-begin "pastebin-data")

(test-begin "pb-entry-id-valid?")

(test-assert (pb-entry-id-valid? "00000"))

(test-assert (pb-entry-id-valid? "0001A"))

(test-assert (pb-entry-id-valid? "0002b"))

(test-assert (not (pb-entry-id-valid? "0../0")))

(test-assert (not (pb-entry-id-valid? "12-34")))

(test-assert (not (pb-entry-id-valid? "0000")))

(test-assert (not (pb-entry-id-valid? "000000")))

(test-end "pb-entry-id-valid?")

(test-begin "pb-data-new-entry")

(let* ((dir (tmpnam))

       (pb-data (pb-data-open dir)))

  (mkdir dir)

  (let ((entry-list (new-n-entries pb-data 100)))

    (test-equal "00000" (pb-entry-id (list-ref entry-list 0)))

    (test-equal "00001" (pb-entry-id (list-ref entry-list 1)))

    (test-equal "00009" (pb-entry-id (list-ref entry-list 9)))

    (test-equal "0000A" (pb-entry-id (list-ref entry-list 10)))

    (test-equal "0000B" (pb-entry-id (list-ref entry-list 11)))

    (test-equal "0000Z" (pb-entry-id (list-ref entry-list 35)))

    (test-equal "0000a" (pb-entry-id (list-ref entry-list 36)))

    (test-equal "0000b" (pb-entry-id (list-ref entry-list 37)))

    (test-equal "0000z" (pb-entry-id (list-ref entry-list 61)))

    (test-equal "00010" (pb-entry-id (list-ref entry-list 62)))

    (test-equal "0001A" (pb-entry-id (list-ref entry-list 72)))

    (test-equal "0001a" (pb-entry-id (list-ref entry-list 98)))))

(test-end "pb-data-new-entry")

(test-begin "pb-data-get-top")

(let* ((dir (tmpnam))

       (pb-data (pb-data-open dir)))

  (mkdir dir)

  (new-n-entries pb-data 5)

  (let ((top-5 (pb-data-get-top pb-data 5)))

    (test-equal "00004" (pb-entry-id (first top-5)))

    (test-equal "00000" (pb-entry-id (last top-5))))

  (new-n-entries pb-data 195)

  (let ((top-20 (pb-data-get-top pb-data 20)))

    (test-equal "0003D" (pb-entry-id (first top-20)))

    (test-equal "0002u" (pb-entry-id (last top-20)))))

(test-end "pb-data-get-top")

(test-end "pastebin-data")

;; Local Variables:

;; mode: scheme

;; End: