rename src/ to lab/ as legacy algorithm laboratory

.github/workflows/test-perl.yml

@@ -3,9 +3,9 @@ name: Perl
 # yamllint disable rule:line-length
 on:  # yamllint disable-line rule:truthy
   push:
-    paths: ['src/perl/**', '.github/workflows/test-perl.yml']
+    paths: ['lab/perl/**', '.github/workflows/test-perl.yml']
   pull_request:
-    paths: ['src/perl/**', '.github/workflows/test-perl.yml']
+    paths: ['lab/perl/**', '.github/workflows/test-perl.yml']
   workflow_dispatch:
   # schedule:
   #   - cron: '42 5 * * *'
@@ -56,7 +56,7 @@ jobs:
             my $retcode = system( "cpanm", "--notest", @deps );
             return (($retcode >> 8) == 0);
           }
-          chdir "src/perl";
+          chdir "lab/perl";
           my $topdir = getcwd();
           my $success = 1;
           for my $subdir ( qw(prefvote stv schulze rankedpairs) ) {
@@ -86,7 +86,7 @@ jobs:
         run: |
           use feature qw(say);
           use POSIX qw(getcwd);
-          chdir "src/perl";
+          chdir "lab/perl";
           my $topdir = getcwd();
           $ENV{PERL5LIB} .= ":$topdir/prefvote/lib";
           my $success = 1;

src/perl/kr2/lib/PrefVote/KR2.pm → lab/perl/kr2/lib/PrefVote/KR2.pm

@@ -216,6 +216,9 @@ sub compute_condorcet
         }
     }
 
+    # set result order
+
+
     # TODO
     return;
 }

test/acr-compare

@@ -18,7 +18,7 @@ use IPC::Run qw(run);
 Readonly::Array my @methods => qw(Core STV Schulze RankedPairs);
 Readonly::Scalar my $pvroot => dirname($FindBin::RealBin);
 Readonly::Scalar my $datadir => "$pvroot/test/inputs/100-rcv-test";
-Readonly::Scalar my $count_script => "$pvroot/src/perl/prefvote/bin/vote-count";
+Readonly::Scalar my $count_script => "$pvroot/lab/perl/prefvote/bin/vote-count";
 
 # global flags
 my $html_mode = 0;

test/blackbox-recalibrate

@@ -14,7 +14,7 @@ use IPC::Run qw(run);
 Readonly::Array my @methods => qw(Core STV Schulze RankedPairs);
 Readonly::Scalar my $progname => $0;
 Readonly::Scalar my $pvroot => dirname($Bin);
-Readonly::Scalar my $count_script => "$pvroot/src/perl/prefvote/bin/vote-count";
+Readonly::Scalar my $count_script => "$pvroot/lab/perl/prefvote/bin/vote-count";
 
 # configuration
 $YAML::InlineSeries = 10;

test/run-tests

@@ -42,22 +42,22 @@ Readonly::Hash my %config => (
         build => 'dzil build',
         whitebox => {
             dirs => {
-                Core => '${pvroot}/src/perl/prefvote',
-                STV => '${pvroot}/src/perl/stv',
-                Schulze => '${pvroot}/src/perl/schulze',
-                RankedPairs => '${pvroot}/src/perl/rankedpairs',
+                Core => '${pvroot}/lab/perl/prefvote',
+                STV => '${pvroot}/lab/perl/stv',
+                Schulze => '${pvroot}/lab/perl/schulze',
+                RankedPairs => '${pvroot}/lab/perl/rankedpairs',
             },
             testdir => "t",
             test_re => qr{\.t$},
-            tp_args => [switches => ['-Isrc/perl/prefvote/lib', '-Ilib']],
+            tp_args => [switches => ['-Ilab/perl/prefvote/lib', '-Ilib']],
         },
         prove_params => "--lib",
         blackbox => {
             env => {
                 PERL5LIB => '${cwd}/prefvote/lib:${cwd}/stv/lib:${env/PERL5LIB}',
             },
-            cmd => [ '${pvroot}/src/perl/prefvote/bin/vote-count', "--test", '--method=${var/method}'],
-            tp_args => [switches => ['-Isrc/perl/prefvote/lib', '-Isrc/perl/stv/lib']],
+            cmd => [ '${pvroot}/lab/perl/prefvote/bin/vote-count', "--test", '--method=${var/method}'],
+            tp_args => [switches => ['-Ilab/perl/prefvote/lib', '-Ilab/perl/stv/lib']],
         }
     },
     rust => {

test/test-overview

@@ -12,7 +12,7 @@ use IPC::Run qw(run);
 # constants
 Readonly::Array my @methods => qw(Core STV Schulze RankedPairs);
 Readonly::Scalar my $pvroot => dirname($FindBin::RealBin);
-Readonly::Scalar my $count_script => "$pvroot/src/perl/prefvote/bin/vote-count";
+Readonly::Scalar my $count_script => "$pvroot/lab/perl/prefvote/bin/vote-count";
 Readonly::Scalar my $acr_compare_script => "$pvroot/test/acr-compare";
 Readonly::Array my @yaml_suffixes => qw(.yaml .yml);
 Readonly::Scalar my $markdown_suffix => ".md";