diff --git a/src/test_tri.adb b/src/test_tri.adb
new file mode 100644
index 0000000..65cd38f
--- /dev/null
+++ b/src/test_tri.adb
@@ -0,0 +1,39 @@
+with Ada.Text_IO; use Ada.Text_IO;
+
+with Vector;
+
+procedure pageRank is
+
+    Type T_Double is digits 3;
+
+    N: Natural := 10;
+
+    package Vector_Double is
+        new Vector(T_Element => T_Double,
+                    N => N);
+    use Vector_Double;
+
+    vec: T_Vecteur_Element;
+    vec_index: T_Vecteur_Natural;
+
+begin
+
+    vec(0) := 10.0;
+    vec(1) := 1.0;
+    vec(2) := 21.0;
+    vec(3) := 3.0;
+    vec(4) := 13.0;
+    vec(5) := 56.0;
+    vec(6) := 3.0;
+    vec(7) := 5.0;
+    vec(8) := 6.0;
+    vec(9) := 6.0;
+
+    put_line("avant:");
+    put(vec);
+    new_line;
+    Quick_Sort(vec);
+    put_line("après:");
+    put(vec);
+
+end pageRank;