commit f7a2132a90c708d05f4ca5d06f5f84cd5031a34f
parent ed59c2a4cb8d75bbc20423c36a28be8e5eac146f
Author: Andrew Laack <andrew@laack.co>
Date: Tue, 1 Sep 2026 16:33:47 -0500
Refactoring for testing
Diffstat:
10 files changed, 12 insertions(+), 39 deletions(-)
diff --git a/learning/bin/dune b/learning/bin/dune
@@ -1,4 +1,4 @@
(executable
(public_name learning)
(name main)
- (libraries dream jingoo))
+ (libraries dream jingoo learning))
diff --git a/learning/bin/main.ml b/learning/bin/main.ml
@@ -1,4 +1,4 @@
-open Jingoo
+open Learning
(*TODO: Make this a whitelist based on the page / course lists*)
diff --git a/learning/dune-project b/learning/dune-project
@@ -13,14 +13,14 @@
(license LICENSE)
-(documentation https://url/to/documentation)
+(documentation https://github.com/andrewlaack/learning-takes-time)
(package
(name learning)
- (synopsis "A short synopsis")
- (description "A longer description")
+ (synopsis ".sl Renderer")
+ (description "A program to render learning files for standardized learning.")
(depends ocaml dream jingoo)
(tags
- ("add topics" "to describe" your project)))
+ ("learning" "education")))
; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
diff --git a/learning/learning.opam b/learning/learning.opam
@@ -1,32 +0,0 @@
-# This file is generated by dune, edit dune-project instead
-opam-version: "2.0"
-synopsis: "A short synopsis"
-description: "A longer description"
-maintainer: ["Maintainer Name <maintainer@example.com>"]
-authors: ["Author Name <author@example.com>"]
-license: "LICENSE"
-tags: ["add topics" "to describe" "your" "project"]
-homepage: "https://github.com/username/reponame"
-doc: "https://url/to/documentation"
-bug-reports: "https://github.com/username/reponame/issues"
-depends: [
- "dune" {>= "3.24"}
- "ocaml"
- "odoc" {with-doc}
-]
-build: [
- ["dune" "subst"] {dev}
- [
- "dune"
- "build"
- "-p"
- name
- "-j"
- jobs
- "@install"
- "@runtest" {with-test}
- "@doc" {with-doc}
- ]
-]
-dev-repo: "git+https://github.com/username/reponame.git"
-x-maintenance-intent: ["(latest)"]
diff --git a/learning/bin/basic_functions.ml b/learning/lib/basic_functions.ml
diff --git a/learning/lib/dune b/learning/lib/dune
@@ -1,2 +1,3 @@
(library
- (name learning))
+ (name learning)
+ (libraries jingoo))
diff --git a/learning/bin/parser.ml b/learning/lib/parser.ml
diff --git a/learning/bin/render.ml b/learning/lib/render.ml
diff --git a/learning/bin/shared.ml b/learning/lib/shared.ml
diff --git a/learning/test/test_learning.ml b/learning/test/test_learning.ml
@@ -0,0 +1,4 @@
+open Learning
+
+let () = assert (Parser.is_preformatted "" true)
+let () = assert (not (Parser.is_preformatted "" false))