feat: add unit tests

t/11-tables.t

@@ -0,0 +1,111 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use Test::More tests => 4;
+use MarkdownParser;
+
+my $parser = MarkdownParser->new();
+
+my $input = <<'EOF';
+| Header 1 | Header 2 |
+|----------|----------|
+| Cell 1   | Cell 2   |
+| Cell 3   | Cell 4   |
+EOF
+
+my $expected = <<'EOF';
+<table>
+<tr>
+<th>Header 1</th>
+<th>Header 2</th>
+</tr>
+<tr>
+<td>Cell 1</td>
+<td>Cell 2</td>
+</tr>
+<tr>
+<td>Cell 3</td>
+<td>Cell 4</td>
+</tr>
+</table>
+EOF
+
+is( $parser->parse($input), $expected, "Basic table" );
+
+$input = <<'EOF';
+| Name | Age |
+|------|-----|
+| John | 25  |
+| Jane | 30  |
+EOF
+
+$expected = <<'EOF';
+<table>
+<tr>
+<th>Name</th>
+<th>Age</th>
+</tr>
+<tr>
+<td>John</td>
+<td>25</td>
+</tr>
+<tr>
+<td>Jane</td>
+<td>30</td>
+</tr>
+</table>
+EOF
+
+is( $parser->parse($input), $expected, "Table with different content" );
+
+$input = <<'EOF';
+# Title
+
+| Col1 | Col2 |
+|------|------|
+| Data | Info |
+
+More text.
+EOF
+
+$expected = <<'EOF';
+<h1>Title</h1>
+<table>
+<tr>
+<th>Col1</th>
+<th>Col2</th>
+</tr>
+<tr>
+<td>Data</td>
+<td>Info</td>
+</tr>
+</table>
+<p>More text.</p>
+EOF
+
+is( $parser->parse($input), $expected, "Table with surrounding content" );
+
+$input = <<'EOF';
+| **Bold** | *Italic* | [Link](url) |
+|----------|----------|-------------|
+| Text     | More     | Info        |
+EOF
+
+$expected = <<'EOF';
+<table>
+<tr>
+<th><strong>Bold</strong></th>
+<th><em>Italic</em></th>
+<th><a href="url">Link</a></th>
+</tr>
+<tr>
+<td>Text</td>
+<td>More</td>
+<td>Info</td>
+</tr>
+</table>
+EOF
+
+is( $parser->parse($input), $expected, "Table with inline formatting" );
+