Changes between Version 23 and Version 24 of SandBox


Ignore:
Timestamp:
Sep 6, 2011, 3:36:47 PM (3 years ago)
Author:
bowtie
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • SandBox

    v23 v24  
    1 = The Sandbox = 
     1= The Sandbox 
    22 
    33This is just a page to practice and learn WikiFormatting.  
    44 
    55Go ahead, edit it freely. 
     6---- 
    67 
     8== Tickets 
    79 
    8 azawawi just for you 
    9 [[Image(syntax_issue.png)]] 
    10  
    11 {{{#!perl 
    12  
    13  
    14 sub on_run_this_test { 
    15         my $self     = shift; 
    16         my $document = $self->current->document; 
    17         unless ($document) { 
    18                 return $self->error( Wx::gettext("No document open") ); 
    19         } 
    20  
    21         # TO DO probably should fetch the current project name 
    22         my $filename = defined( $document->{file} ) ? $document->{file}->filename : undef; 
    23         unless ($filename) { 
    24                 return $self->error( Wx::gettext("Current document has no filename") ); 
    25         } 
    26         unless ( $filename =~ /\.t$/ ) { 
    27                 return $self->error( Wx::gettext("Current document is not a .t file") ); 
    28         } 
    29  
    30         # Find the project 
    31         my $project_dir = $document->project_dir; 
    32         unless ($project_dir) { 
    33                 return $self->error( Wx::gettext("Could not find project root") ); 
    34         } 
    35  
    36         my $dir = Cwd::cwd; 
    37         chdir $project_dir; 
    38         require File::Which; 
    39         my $prove = File::Which::which('prove'); 
    40         if (Padre::Constant::WIN32) { 
    41  
    42                 # This is needed since prove does not work with path containing 
    43                 # spaces. Please see ticket:582 
    44                 require File::Temp; 
    45                 my $tempfile = File::Temp->new( UNLINK => 0 ); 
    46                 print $tempfile $filename; 
    47                 close $tempfile; 
    48  
    49                 my $things_to_test = $tempfile->filename; 
    50                 $self->run_command(qq{"$prove" - -lv < "$things_to_test"}); 
    51         } else { 
    52                 $self->run_command("$prove -lv $filename"); 
    53         } 
    54         chdir $dir; 
    55 } 
    56  
    57  
    58 }}} 
    59  
    60  
    61  
    62 == Tickets == 
    63 just adjust the item to find open defects 
    64 * current summary~=plugin  
    65 [[TicketQuery(summary~=plugin,status=new,type=defect,order=version,desc=0,format=table,col=type|version|summary|owner|reporter|time)]] 
    66 ---- 
    6710OSX open defects 
    6811[[TicketQuery(Keywords~=osx,status=new,type=defect,order=version,desc=0,format=table,col=type|version|summary|owner|reporter|time)]] 
    6912---- 
    70 * another grain of sand 
    71 {{{ 
    72 [[TicketQuery(component=plugins,order=id,desc=1,format=table,col=resolution|summary|owner|reporter)]] 
    73 }}} 
    74 * another grain of sand 
    75 {{{ 
    76 #[[TicketQuery(component=plugin::PAR,order=id,desc=0,format=table,col=resolution|summary|owner|reporter)]] 
    77 }}} 
    7813 
    79 == Sand == 
    80  
    81 We clearly need to have some sand in our sandbox: 
    82  
    83 [[Image(305131lwmgv1pzw.jpg)]][[Image(camel.png)]] 
    84  
    85 Image: Sura Nualpradid / FreeDigitalPhotos.net 
    8614 
    8715== For Zenog ==