$self->redirect_to('/someurl');
generates:
/cgi-bin/script/myapp/someurl

2011/11/8 s...@bykov.odessa.ua <s...@bykov.odessa.ua>

I use the following variant (and does not require the website to be
hardcoded).

    $self->hook( before_dispatch => sub {
         my $self = shift;
         my $uri = $self->req->env->{SCRIPT_URI};
         $self->req->url->base(Mojo::URL->new($uri)) if $uri;
    });

cheers
tobi

https://github.com/kraih/mojo/blob/master/t/mojo/request_cgi.t

 RewriteEngine On
 RewriteBase /~oetiker/extopus
 RewriteCond %{REQUEST_FILENAME} !-f
 RewriteRule (.*) ep.fcgi/$1 [L]

But since you are using SCRIPT_NAME in Mojo/Message/Request.pm
to figure out the base url, you are calling our bluff, and if Mojo
is asked to create an url the name of the script pops back up.

mod_rewrite provieds a SCRIPT_URI environment contains a
"sanitized" version of that information, so that the name of the
script remains hidden.

obviously SCRIPT_URI may not exist, so one has to tread carefully
here ...

cheers
tobi

  https://github.com/kraih/mojo/blob/master/t/mojo/request_cgi.t#L439

if Mojo made any use of SCRIPT_URI that is ...

cheers
tobi

but a proof ... difficult :-)

cheers
tobi

  https://github.com/kraih/mojo/commit/7f7c382b7196db23bd432a99c574cbac...

Hi all,

I've read the page on howto test Mojolicious::Lite apps, but I'm
obviously missing something when I read:

  https://github.com/kraih/mojo/wiki/Testing

and the example of testing a Mojolicious::Lite app.  It's not clear if
this is a completely seperate script which needs to be run, or if it's
a fragment to be put into @@ t/test.pl in the __DATA__ section.

I even found the following blog entry, which looks good, but doesn't
answer the question either.

  http://blogs.perl.org/users/tempire/2012/02/mojolicious-full-and-lite...

It boils down to 1) do I include the tests into my Mojolicious::Lite
app foo.pl file or do I need to keep the tests seperate?  

Just to be nicer about it, this is what I'm trying to do:

   #!/usr/bin/perl -w

   use Mojolicious::Lite;

   get '/' => sub {
     my $self = shift;
     $self->render(text => 'Hello world!');
   };

   app->start;

   __DATA__;

   @@ t/test.pl
   use Test::More;
   use Test::Mojo;

   use FindBin;
   $ENV{MOJO_HOME} = "$FindBin::Bin/../";
   require "$ENV{MOJO_HOME}/test-tests.pl";

   my $t = Test::Mojo->new;
   $t->get_ok('/')
     ->status_is(200)
     ->text_like('html body' => qr/Hello world/);;
   done_testing;

but it just says:

   > perl test-tests.pl Test
   Can't find test directory.

so I'm doing something wrong, or not understanding how to make this
work properly.

John>    @@ t/test.pl

Duh, I'm a moron.  I needs to be:

     @@ t/test.t

duh duh duh...  At least now it runs a test, even though I'm still
failing.  Baby steps... baby steps.  :]

John> @@ t/test.pl

John> Duh, I'm a moron.  I needs to be:

John>      @@ t/test.t

John> duh duh duh...  At least now it runs a test, even though I'm still
John> failing.  Baby steps... baby steps.  :]

And I'm still a moron.  I had a t/test.t file still around in the same
directory as my test ::Lite app.  So it looks like while I can include
static files into Mojolicious::Lite apps, I can't include the test
stuff.  

That's ok I guess, I was just trying to get a clarification on how to
do tests properly, since I should move in that direction.

It's been pretty silent here, I must be very boring to read.  *grin*