<commit_before>#lang racket/base
(require pkg/path
         setup/dirs)

(module+ test
  (require rackunit)

  (check-equal? (path->pkg (collection-file-path "path.rkt" "tests" "pkg"))
                "racket-test")
  (check-equal? (call-with-values
                    (lambda () (path->pkg+subpath (collection-file-path "path.rkt" "tests" "pkg")))
                  list)
                (list "racket-test" (build-path "tests" "pkg" "path.rkt")))
  (check-equal? (call-with-values
                    (lambda () (path->pkg+subpath+collect (collection-file-path "path.rkt" "tests" "pkg")))
                  list)
                (list "racket-test" (build-path "tests" "pkg" "path.rkt") #f))

  (check-equal? (path->pkg (find-system-path 'temp-dir))
                #f)

  (check-equal? (path->pkg (build-path (find-pkgs-dir) "pkgs.rktd"))
                #f)
  (check-equal? (path->pkg (find-pkgs-dir))
                #f)

  (check-equal? (call-with-values
                    (lambda () (path->pkg+subpath+collect (collection-file-path "serve-catalog.rkt" "distro-build")))
                  list)
                (list "distro-build-server" (build-path "serve-catalog.rkt") "distro-build")))<commit_msg>Fix test that used `distro-build`.<commit_after>#lang racket/base
(require pkg/path
         setup/dirs)

(module+ test
  (require rackunit)

  (check-equal? (path->pkg (collection-file-path "path.rkt" "tests" "pkg"))
                "racket-test")
  (check-equal? (call-with-values
                    (lambda () (path->pkg+subpath (collection-file-path "path.rkt" "tests" "pkg")))
                  list)
                (list "racket-test" (build-path "tests" "pkg" "path.rkt")))
  (check-equal? (call-with-values
                    (lambda () (path->pkg+subpath+collect (collection-file-path "path.rkt" "tests" "pkg")))
                  list)
                (list "racket-test" (build-path "tests" "pkg" "path.rkt") #f))

  (check-equal? (path->pkg (find-system-path 'temp-dir))
                #f)

  (check-equal? (path->pkg (build-path (find-pkgs-dir) "pkgs.rktd"))
                #f)
  (check-equal? (path->pkg (find-pkgs-dir))
                #f)

  (check-equal? (call-with-values
                    (lambda () (path->pkg+subpath+collect (collection-file-path "info.rkt" "icons")))
                  list)
                (list "icons" (build-path "info.rkt") "icons")))
{'fraction_non_alphanumeric': 0.17954070981210857, 'fraction_numerical': 0.0, 'mean_word_length': 2.0522292993630575, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 17, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2359973', 'n_tokens_mistral': 833, 'n_tokens_neox': 792, 'n_words': 153}