feat: updated fasta code to allow for iteration

1 files changed, 39 insertions, 3 deletions

diff --git a/sys/libbio/test.c b/sys/libbio/test.c
index 115ee46..14f2b06 100644
--- a/sys/libbio/test.c
+++ b/sys/libbio/test.c
@@ -5,9 +5,8 @@
 // -----------------------------------------------------------------------
 // Point of entry for testing
 
-
-int
-main()
+error
+test·newick()
 {
     error err;
     bio·Tree t;
@@ -36,3 +35,40 @@ main()
     return 0;
 }
 
+error
+test·fasta()
+{
+    error err;
+    Stream           *fd;
+
+    bio·Seq          seq;
+    bio·FastaReader *rdr;
+
+    fd  = io·open("/home/nolln/root/data/test/zika.fa", "r");
+    rdr = bio·newfastareader((io·Reader){.read = &io·read}, fd, mem·sys, nil);
+
+    err = 0;
+    while (!err) {
+        err = bio·readfasta(rdr, &seq);
+        if (!err) {
+            printf(">%s\n", seq.name);
+        }
+    }
+
+    io·close(fd); 
+    return err <= 0 ? 0 : 1;
+}
+
+error
+main()
+{
+    error err;
+    if (err = test·newick(), err) {
+        errorf("test fail: newick");
+    }
+
+    if (err = test·fasta(), err) {
+        errorf("test fail: fasta");
+    }
+}
+