Mercurial > repos > jesse-erdmann > tapdance

comparison lib/project_test.pl @ 0:1437a2df99c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author jesse-erdmann
date Fri, 09 Dec 2011 11:56:56 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:1437a2df99c0
1 #/bin/perl
2
3 require 'config.pl';
4 require 'project_man.pl';
5
6 &set_project_status("jesse_test1", 1, 0);
7 &set_project_status("jesse_test2", 1, 1);
8 &set_project_status("jesse_test3", 1, 0);
9 &set_project_status("jesse_test1", 0, 1);
10 &set_project_status("aaron_test1", 1, 1);
11
12
13 my $projects_ref = &get_project_list("");
14 print "All:\n";
15 foreach my $project (@{$projects_ref}) {
16 print "\t$project\n";
17 }
18
19 $projects_ref = &get_project_list("aaron_");
20 print "\nAaron:\n";
21 foreach my $project (@{$projects_ref}) {
22 print "\t$project\n";
23 }
24
25 $projects_ref = &get_project_list("jesse_");
26 print "\nJesse:\n";
27 foreach my $project (@{$projects_ref}) {
28 print "\t$project\n";
29 }
30
31 &delete_project("aaron_test1");
32 $projects_ref = &get_project_list("");
33 print "\nAll (aaron deleted):\n";
34 foreach my $project (@{$projects_ref}) {
35 print "\t$project\n";
36 }
37